主题：自动增加

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