Dim ts() As String = {"表A", "表B", "表C"} For Each t As String In ts Dim dt As DataTable = DataTables(t) Dim idxs As String = "-1," For Each dc As DataCol In dt.datacols If dc.IsString Then For Each fdr As DataRow In dt.sqlselect(dc.name & " = '" & 123 & "'") idxs = idxs & fdr("_Identify") & "," Next End If Next dt.LoadFilter = "[_Identify] in (" & idxs.trim(",") & ")" dt.load Next
|