Question

sql 查询所有满足条件数据并赋值

SQL = "SELECT * FROM Trans WHERE Code='" & Text1.Text & "' "

Set rs = Selectsql(SQL)

If Not rs.EOF Then

gx = rs.Fields("cIWhCode").Value & ""

Else

MsgBox "请输入！", 48, "错误提示！"

End If

rs.Close

如何查询出满足Text1.Text条件的所有数据，并数据赋值给gx1，gx2

Answer 1

我对楼上的回答,再稍作修改
redim gx(rs.recordcount)
dim i as integer
i=-1
while not rs.eof
i = i + 1
gx(i)=rs.Fields("cIWhCode").Value & ""
rs.movenext
wend

Answer 2

dim gx(),i as integer

SQL = "SELECT * FROM Trans WHERE Code='" & Text1.Text & "' "
Set rs = Selectsql(SQL)

redim gx(rs.recordcount)
while not rs.eof
gx(i)=rs.Fields("cIWhCode").Value & ""
rs.movenext
wend