如何返回表中符合要求的字段的多个值

myszh

因为好像 DLOOKUP只能返回一个数值

要求： 返回所有 数量>=10000  的所有 NO

结果： TEMP=“00491564+00651566"

[ 本帖最后由 myszh 于 2007-10-27 09:08 编辑 ]

t小宝

多个记录应该要用到DAO或ADO
先打开符合条件的记录集,再循环记录组合No字段值.

myszh

写点具体的

wwfjimy

学 :) :) :) 习:) :) :) :) 中

t小宝

Public Sub 返回字段多个值()

Dim dbs As dao.Database
Dim rs As dao.Recordset
Dim Temp As String

Set dbs = CurrentDb
'打开符合条件的记录集
Set rs = dbs.OpenRecordset("Select * From 表名 Where 数量>=10000")
'在记录集中循环,组合字段值
Do Until rs.EOF
    Temp = Temp & "+" & rs!NO
     rs.MoveNext
Loop
'删除第一个+号
Temp = Right(Temp, Len(Temp) - 1)
rs.Close
dbs.Close

End Sub