蓝老师，以下是筛选唯一行的代码，如何将筛选结果复制到【表B]中？
If User.IsRole("审核") Then '审核代码
Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列,第二列,第三列"
For Each dr As DataRow In DataTables("表A").Select("", cs)
Dim flag As Boolean = False
If pdr IsNot Nothing Then
For Each c As String In cs.split(",")
If pdr(c) <> dr(c) Then
flag = True
Exit For
End If
Next
End If
If flag Then
If count > 1 Then
idx &= idx_temp
End If
count = 1
idx_temp = ""
idx_temp &= dr("_Identify") & ","
Else
count += 1
idx_temp &= dr("_Identify") & ","
End If
pdr = dr
Next
If count > 1 Then
idx &= idx_temp
End If
Tables("表A").filter = "_Identify not in (" & idx.trim(",") & ")"
Else
MessageBox.Show("你无审核权限!")
End If
Return
加好友 
发短信
Post By：2020/7/13 17:15:00 [显示全部帖子]
