以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  求助代码有问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=86197)

--  作者：大红袍 --  发布时间：2016/6/13 0:17:00 --   Select Case e.DataCol.Name \'定义一个列名的名称     Case "姓名"         \'确定一个列名值         Dim dr As DataRow   \'定义一个变量         dr = e.DataTable.Find("姓名 = \'" & e.NewValue & "\'") \'查找一个新姓名的值         If dr IsNot Nothing Then              \'如果找到这个员工             MessageBox.Show("此员工已存在!请查询.")             e.Cancel = True            \'否则进行输入         End If     Case "身份证号码"         If e.NewValue IsNot Nothing Then             If ValidPIN(e.NewValue) = False Then                 MessageBox.show("此身份证号码有误!请核对后重新输入.")                 e.cancel = True             Else                 Dim hm As DataRow                 hm =e.DataTable.Find("身份证号码 = \'" & e.NewValue & "\'")                 If hm IsNot Nothing Then                     MessageBox.show("此身份证号码已存在!请核对后重新输入.")                     e.Cancel = True                 End If             End If         End If End Select