| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 数组问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72171) |
| -- 作者：cuicuibing -- 发布时间：2015/7/24 16:51:00 -- 数组问题 问题如下： 在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 |
| -- 作者：cuicuibing -- 发布时间：2015/7/24 16:53:00 -- 问题如下： 在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
|
| -- 作者：大红袍 -- 发布时间：2015/7/24 17:13:00 -- "SEL ECT * From {表a} Where 内部加工单号 in (\'" & str.replace(",", "\',\'") & "\')"
|