问题如下：
在DropBox1一个数
这种方式存在 1,2,3 或者1,2,3,4
位数不定。也可能是 1,2,3,4,5,6,7,8,9
我想根据找到的这个数生成一个查询公式。
Dim str As String = Forms("工序库调用").Controls("DropBox1").Text
Dim ary() As String = str.Split(",")
Dim Filter As String
Dim i As Integer = 1
If ary(0) IsNot Nothing Then
Filter = ary(0) 这里是不是这样‘ “ &ary（0）&” ’
End If
Do While i <= 10 这里循环这样对不，估计最多不超过10个数。
If ary(i) IsNot Nothing Then 这里判断ary（i）是不是存在对不或者在哪里判读
Filter = Filter & " or "
Filter = Filter & "内部加工单号 = " & ary(i) & ""
i = i + 1
Else
'Exit Do
End If
Loop
主要意思是生成一个查询条件
SEL ECT * From {表a} Where 内部加工单号= filter
加好友 
发短信
Post By：2015/7/24 16:51:00 [只看该作者]
