以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 加载的filter条件 (http://foxtable.com/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是整型,去掉上面单引号
|