Dim t1 As Table = Tables("钢结构关联筛选") Dim t2 As Table = Tables("Record") Dim idxs As String = "-1," For Each r As Row In t2.Rows Dim dr As DataRow = t1.DataTable.Find("Drw_No = '" & r("Drw_No") & "' and Mark_No = '" & r("Mark_No") & "'") If dr IsNot Nothing Then idx &= r("_Identify") & "," End If Next t2.filter = "_Identify in (" & idx.trim(",") & ")"
加好友 
发短信
Post By：2017/5/2 10:46:00 [显示全部帖子]
