主题：找老师解决

参考

http://www.foxtable.com/webhelp/scr/2481.htm

不会做上传具体实例。

Select Case e.DataCol.Name
    Case "第一列","第二列","第三列","第四列","第五列"
        If e.DataRow("第五列") = true Then
            Dim arr() As String = {"第一列","第二列","第三列","第四列"}
            Dim s1 As String = ""
            Dim s2 As String = ""
            For Each cl As String In arr
                If e.DataRow.IsNull(cl) = True Then
                    s1 = ""
                    Exit For
                End If
                s1 = s1 & cl & "+'|'+"
                s2 = s2 & e.DataRow(cl) & "|"
            Next
            If s1 > "" Then
                Dim filter As String  = s1.trim("+") & " = '" & s2 & "' and 第五列 = false"
                If DataTables("表B").compute("count(_Identify)", filter) > 1 Then
                    msgbox("重复")
                    'e.DataRow.Delete
                End If
            End If
        End If
End Select