提示：调用的目标发生了异常，啥原因？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示：调用的目标发生了异常，啥原因？

共有9252人关注过本帖树形打印复制链接主题：提示：调用的目标发生了异常，啥原因？

jxkqf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：778 积分：7463 威望：0 精华：0 注册：2009/9/7 10:55:00

提示：调用的目标发生了异常，啥原因？ 发帖心情

Post By：2013/2/26 15:11:00 [显示全部帖子]

Dim y,m,d As Integer
Dim da As Date = Date.Today
If e.DataCol.Name = "身份证" Then
    If e.DataRow.Isnull("身份证") Then
        e.DataRow("性别") = Nothing
        e.DataRow("出生日期") = Nothing
        e.DataRow("年龄") = Nothing
    Else
        e.DataRow("性别") = readsex(e.DataRow("身份证"))
        e.DataRow("出生日期") = ReadBirthDay(e.DataRow("身份证"))
        e.DataRow("校验") = ValidPIN(e.DataRow("身份证"))
        dateymd(da,e.DataRow("出生日期"),y,m,d)
        e.DataRow("年龄") = cstr(y) & "年" & cstr(m) & "月"
    End If
End If