If e.DataCol.Name = "参会人员" Then
If e.NewValue > "" AndAlso e.DataRow.IsNull("缺席人员") = False
Dim dr As DataRow
Dim str As String = "," & e.DataRow("缺席人员") & ","
For Each s As String In e.NewValue.split(",")
If str Like "*," & s & ",*" Then
MessageBox.Show("此姓名已经存在!")
e.Cancel = True
Return
End If
Next
End If
ElseIf e.DataCol.Name = "缺席人员" Then
If e.NewValue > "" AndAlso e.DataRow.IsNull("参会人员") = False
Dim dr As DataRow
Dim str As String = "," & e.DataRow("参会人员") & ","
For Each s As String In e.NewValue.split(",")
If str Like "*," & s & ",*" Then
MessageBox.Show("此姓名已经存在!")
e.Cancel = True
Return
End If
Next
End If
End If