求助代码有问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

ZJZK2015	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	求助代码有问题 Post By：2016/6/12 21:04:00 [只看该作者] 用户已被锁定

ZJZK2015	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：810 积分：7727 威望：0 精华：0 注册：2014/7/4 20:32:00	Post By：2016/6/13 0:31:00 [只看该作者] 用户已被锁定

主题：求助代码有问题