主题：重算列出现错误提示

重算年龄列出现下面的错误提示，不知是哪里出了问题。

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

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

点击浏览该文件:人力资源.table

另外，想从姓名列生成姓名简码，从身份证号中读取性别和出生日期，昨天试了一下午也没有成功，请帮助设置一下让我举一反三学一学。谢谢！

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

点击浏览该文件:人力资源.table

困惑，年龄列需要设置计算代码，而性别列却不需设置，为什么？

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

点击浏览该文件:人力资源.table

如果身份证号不填，直接输入出生日期怎么办呢？是不是应该判断IsNull("出生日期")？

但是没有身份证号数据，只有出生日期，年龄列就得不出结果喽。

谢谢lxl老师！再问一个问题：
Getpy(e.datarow("姓名"))，如果姓名是“马万里”，怎样才能得到“MWL”，而不是“ma wan li”？

If e.DataCol.Name = "姓名" Then
    If e.DataRow.IsNull("姓名")
        e.DataRow("xmjm") = Nothing
        e.DataRow("姓名简码") = Nothing
    Else
        Dim a As String
        Dim b As String = GetPY(e.DataRow("姓名"))
        For i As Integer = 0 To b.Length - 1
            If i = 0 OrElse b.Chars(i - 1) = " " Then
                a = a & b.Chars(i)
            End If
        Next
        e.DataRow("xmjm") = b
        e.DataRow("姓名简码") = a.ToUpper
    End If
End If

好家伙，仅仅一个姓名简码就要写出这么复杂的语句，我开始怀疑自己能不能学会Foxtable。

好吧，需要时请老鸟帮忙。

还有Getpy会把所有生僻字都译成zuo，怎么办？