主题：根据“出生日期”，输入代码后提示“case运算符后缺少操作数”

表中有“出生日期”列，怎么才能计算出“年

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人事台账.table

”列？把帮助文件中的代码输入后总是提示“case运算符后缺少操作数” ，请问是怎么回事？

写到datacolchanged事件

 

http://www.foxtable.com/webhelp/scr/1445.htm

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人事台账 (1).table

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

If e.DataCol.Name = "出生日期" Then
    If e.DataRow.IsNull("出生日期") Then '如果没有输入出生日期
        e.DataRow("年龄") = Nothing '则清空年龄
    Else
        '否则计算年龄
        e.DataRow("年龄") = Date.Today.Year - e.DataRow("出生日期").Year
    End If
End If

这两段代码有什么不同？第一段中提示“Case运算符后缺少操作数”，第二段提示“e运算符后缺少操作数”，该怎么修改？老师回答：写到datacolchanged事件

 

http://www.foxtable.com/webhelp/scr/1445.htm，可是不会弄该怎么办？我是菜鸟，烦请指教！

认认真真下载2楼的例子测试。

代码写在datacolchanged事件

 

http://www.foxtable.com/webhelp/scr/1445.htm