以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  提出出生日期，并转换格式出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161661)
--  作者：天宇科技
--  发布时间：2021/3/25 16:28:00
--  提出出生日期，并转换格式出错
有三列，证件号码（文本型） 出生日期（日期型） 出生日期1（文本型）要求生成“20200105”这种格式的，以下代码错在哪儿。提示：
Exception has been thrown by the target of an invocation.Conversion from string "19780413" to type \'Date\' is not valid.
Exception has been thrown by the target of an invocation.Public member \'trim\' on type \'Date\' not found.


If e.DataCol.Name = "证件号码" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("证件号码") Then \'身份证号码是否为空
        e.DataRow("出生日期") = Nothing \'如果为空,则清除出生日期
    Else
        \'否则从身份证号码列中提取出生日期
        e.DataRow("出生日期") = Format(ReadBirthday(e.DataRow("证件号码")),"yyyyMMdd")
        e.DataRow("性别") = ReadSex(e.DataRow("证件号码"))
    End If
End If


If e.DataCol.Name = "出生日期" Then \'如果更改的是身份证号码列
    If e.DataRow.IsNull("出生日期") Then \'身份证号码是否为空
        e.DataRow("出生日期1") = Nothing \'如果为空,则清除出生日期
    Else
        \'否则从身份证号码列中提取出生日期
        e.DataRow("出生日期1") =  e.DataRow("出生日期").trim("-")
    End If
End If
--  作者：有点蓝
--  发布时间：2021/3/25 16:32:00
--  
e.DataRow("出生日期") = ReadBirthday(e.DataRow("证件号码"))

e.DataRow("出生日期1") =  format(e.DataRow("出生日期"),"yyyyMMdd")
[此贴子已经被作者于2021/3/25 16:32:35编辑过]