以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载的filter条件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121485)

--  作者:yancheng
--  发布时间:2018/7/7 11:07:00
--  加载的filter条件
Dim Names As New List(Of Integer)
For Each cldr As DataRow In DataTables("材料明细表").DataRows
    Dim clbdr As DataRow = DataTables("材料表").Find("材料名称 = \'" & cldr("名称") & "\' and 规格 = \'" & cldr("规格") & "\'")
    If clbdr IsNot Nothing Then
        Names.Add(clbdr("AutoID"))
    End If
Next
Dim Arys() As String
Arys = names.ToArray() \'将集合转换为数组

DataTables("材料表").LoadFilter = "AutoID in  Arys"
DataTables("材料表").Load

上面的代码 ,怎么改呢?报错

--  作者:有点蓝
--  发布时间:2018/7/7 11:17:00
--  
DataTables("材料表").LoadFilter = "AutoID in (\'" & String.Join("\',\'",Arys) & "\')"

如果AutoID是整型,去掉上面单引号