Select Case e.DataCol.Name
    Case "sfzh"
        If e.DataRow.IsNull("sfzh") Then  \'身份证号码是否为空
            e.DataRow("出生日期") = Nothing  \'如果为空,则清除出生日期
            e.DataRow("性别") = Nothing  \'如果为空,则清除出生日期
            e.DataRow("年龄") = Nothing \'如果为空,则清除年龄
        Else
            \'否则从身份证号码列中提取出生日期
            e.DataRow("出生日期") = ReadBirthday(e.DataRow("sfzh"))
            e.DataRow("性别") = ReadSex(e.DataRow("sfzh"))
            Dim y,m,d As Integer
            m=08
            d=31
            DateYMD(ReadBirthday(e.DataRow("sfzh")),Date.Today,y,m,d)
            e.DataRow("年龄") = y
        End If
    Case "出生日期"
        If e.DataRow.IsNull("出生日期") Then
            e.DataRow("年") = Nothing
            e.DataRow("月") = Nothing
            e.DataRow("日") = Nothing
        Else
            Dim str As String = cldate(e.NewValue)
            Dim ary() As String = str.Split(new Char() {"年", "月", "日"})
            e.DataRow("年") = ary(0)
            e.DataRow("月") = ary(1)
            e.DataRow("日") = ary(2)
        End If
End Select

身份证转出生日期 目前是1993-01-30 00:00:00，需输出结果是19930130格式

1、列类型你要改成字符类型

2、代码改成 e.DataRow("出生日期") = Format(ReadBirthday(e.DataRow("sfzh")), "yyyyMMdd")

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

点击浏览该文件:年月日.table

出生日期公式没反应，问题出在什么地方，需改成19710917 盼解答

每次重启后 “年龄”、“性别”、“出生日期”字段怎么清空了

改成数据列

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

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