假定有个订单表,要求订单号列不能输入重复值,可以将这个表的DataColChanging事件代码设置为:
If e.DataCol.Name = "订单号" Then Dim dr As DataRow dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'") If dr IsNot Nothing Then MessageBox.Show("此订单号已经存在!") e.Cancel = True End IfEnd If
这个代码是在表的行变化时候的代码实现禁止重复值,
如果我不想设置表事件,想通过一个按钮来实现,应该怎么写好呢?