以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  求助，从身份证号里提取生日  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149870)

--  作者：昱飞哥 --  发布时间：2020/5/14 10:40:00 --  求助，从身份证号里提取生日 \'以下的代码是从"身份证号"里读取生日 If e.DataCol.Name = "身份证号" Then     If e.DataRow.IsNull("身份证号") Then \'如果没有输入身份证号         e.DataRow("生日") = Nothing \'则清空生日     Else         \'否则计算生日         e.DataRow("生日") = ReadBirthDay (e.DataRow("身份证号"))     End If End If 这代码错在哪里，求助

--  作者：有点蓝 --  发布时间：2020/5/14 10:53:00 --   判断身份证是否正确 If e.DataCol.Name = "身份证号" Then     If e.DataRow.IsNull("身份证号") orelse ValidPIN（e.DataRow("身份证号")） = false Then \'如果没有输入身份证号         e.DataRow("生日") = Nothing \'则清空生日     Else          \'否则计算生日         e.DataRow("生日") = ReadBirthDay (e.DataRow("身份证号"))     End If End If