Datacolchanging事件,代码
If e.DataCol.Name = "学生姓名" Then
Dim fdr As DataRow = e.DataTable.Find("学生姓名 = '" & e.NewValue & "' or 学生姓名 = '" & e.NewValue & "-1'")
If fdr IsNot Nothing Then
Dim Result As DialogResult
Result = MessageBox.Show("是否同人?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.No Then
e.NewValue = e.NewValue & "-1"
End If
End If
End If