DataColChanging事件
If e.DataCol.Name = "卡号" Then Dim dr As DataRow dr = DataTables("卡号列表").Find("卡号 = '" & e.NewValue & "'") If dr Is Nothing Then MessageBox.Show("此卡号不存在!") e.Cancel = True End IfEnd If