'禁止姓名 身份证号 重复
Select Case e.DataCol.Name
Case "姓名" , "身份证号"
If e.NewValue IsNot Nothing Then '如果已经输入订单号
Dim dr As DataRow = e.DataTable.find("e.datacol.name = '" & e.NewValue & "'")
If dr IsNot Nothing Then
MessageBox.Show("姓名已存在!请加入备注.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
End If
End If
End Select
现在用的是这个代码 请问 Dim dr As DataRow = e.DataTable.find("e.datacol.name = '" & e.NewValue & "'") 中的列名 和MessageBox.Show("姓名已存在!请加入备注.","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)提示框中的列名应该如何表示.
加好友 
发短信
Post By：2020/10/15 23:57:00 [显示全部帖子]
