Dim idxs As String = "" For Each dr As DataRow In DataTables("表A").DataRows Dim dr2 As DataRow = DataTables("表A").Find("第一列='" & dr("第一列") & "' and 第二列='" & dr("第二列") & "' and _Identify <> " & dr("_Identify")) If dr2 IsNot Nothing Then idxs &= dr("_Identify") & "," End If Next Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"
|