Select Case e.DataCol.Name
Case "A列","B列","C列","D列"
If e.DataRow.IsNull("K列") = False Then
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("A列") OrElse dr.IsNull("B列") OrElse dr.IsNull("C列") OrElse dr.IsNull("D列") Then
dr("F列") = Nothing
Else
Dim filter As String
filter = "A列 <> '" & dr("A列") & "' And B列 = '" & dr("B列") & "' And D列 = '" & dr("D列") & "' And C列 = '" & dr("C列") & "'"
pr = DataTables("Today").Find(filter)
If pr IsNot Nothing Then
e.DataRow("F列") = "错误"
Else
End If
End If
End If
End Select
加好友 
发短信
Post By：2021/8/19 20:27:00 [显示全部帖子]
