Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "户号,户主姓名"
Dim drs As List(Of DataRow) = DataTables("表A").Select("", cs)
For Each dr As DataRow In drs
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c).replace(" ","") <> dr(c).replace(" ", "") Then
flag = True
Exit For
End If
Next
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
Else
count += 1
If count = 2 Then idx_temp &= pdr("_Identify") & ","
idx_temp &= dr("_Identify") & ","
End If
Else
count += 1
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
'Tables("表A").filter = "_Identify not In (" & idx.trim(",") & ")"
Tables("表A").filter = "_Identify In (" & idx.trim(",") & ")"
加好友 
发短信
Post By：2016/11/3 17:22:00 [显示全部帖子]
