Foxtable(狐表)用户栏目专家坐堂 → 提出出生日期,并转换格式出错


  共有3249人关注过本帖树形打印复制链接

主题:提出出生日期,并转换格式出错

帅哥哟,离线,有人找我吗?
天宇科技
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:475 积分:4058 威望:0 精华:0 注册:2018/5/13 15:18:00
提出出生日期,并转换格式出错  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/25 16:32:00 [只看该作者]

e.DataRow("出生日期") = ReadBirthday(e.DataRow("证件号码"))

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

 回到顶部