以文本方式查看主题

-  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=148305)
--  作者：qqhealth
--  发布时间：2020/4/4 12:53:00
--  证件类型为身份证时验证
老师您好，需要对“证件类型”列值为“身份证”的“证件号码”进行判断，护照、出生证等其他证件号码不判断，代码如下，不知如何修改，谢谢！
Select e.DataCol.Name
    Case "证件号码","证件类型"
        Dim Identify As String =e.DataRow("证件号码")
        If  e.DataRow("证件类型") = "身份证" And e.DataRow.IsNull("证件号码") Then
            e.DataRow("身份证号验证") = Nothing
        Else
            e.DataRow("身份证号验证") = ValidPIN(Identify)
        End If
End Select
--  作者：sloyy
--  发布时间：2020/4/4 23:19:00
--  
If  e.DataRow("证件类型") = "身份证"  And not e.DataRow.IsNull("证件号码") Then
    e.DataRow("身份证号验证") = ValidPIN(Identify)
Else
    e.DataRow("身份证号验证") = Nothing
End If
--  作者：qqhealth
--  发布时间：2020/4/6 9:04:00
--  
谢谢！