[求助]这段代码为什么我用会出错呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这段代码为什么我用会出错呢？

共有2999人关注过本帖树形打印复制链接主题：[求助]这段代码为什么我用会出错呢？

zhuzhi

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

加好友

发短信

等级：一尾狐帖子：476 积分：4039 威望：0 精华：0 注册：2011/11/2 8:55:00

[求助]这段代码为什么我用会出错呢？ 发帖心情

Post By：2014/9/29 20:05:00 [显示全部帖子]

帮助里的代码：

Select Case e.DataCol.name

Case "出生日期"

If e.DataRow.IsNull("出生日期") Then

e.DataRow("年龄") = Nothing

Else

Dim tp As TimeSpan = Date.today - CDate(e.DataRow("出生日期"))

e.DataRow("年龄") = Math.Round(tp.TotalDays / 365.2422,2)

End If

End Select

我执行命令后出现

此主题相关图片如下：出错.jpg

同样出现这个错误的还有：

If e.DataCol.Name = "身份证号" Then '是身份证号码发生变化吗?
    If e.DataRow.IsNull("身份证号") Then '身份证号码是否为空
        e.DataRow("出生日期") = Nothing '如果为空,则清除出生日期
    Else
        '否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = ReadBirthday(e.DataRow("身份证号"))
    End If
End If

请问我究竟哪里出错了呢。

谢谢！