Foxtable(狐表)用户栏目专家坐堂 → 日期转年龄


  共有1984人关注过本帖平板打印复制链接

主题:日期转年龄

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


加好友 发短信
等级:六尾狐 帖子:1495 积分:12175 威望:0 精华:0 注册:2013/3/19 16:41:00
日期转年龄  发帖心情 Post By:2020/6/16 8:24:00 [只看该作者]

If e.DataCol.name = "学生姓名" Then
    If e.DataRow.isnull("学生姓名")
        e.DataRow("性别")= Nothing     ' ……其它自己补充
        e.DataRow("年龄")= Nothing
        e.DataRow("家长姓名")= Nothing
        e.DataRow("家庭住址")= Nothing
        e.DataRow("联系电话")= Nothing
       
    Else
        Dim dr As DataRow = DataTables("学生名单").Find("学生姓名 ='" & e.DataRow("学生姓名") & "'")
        If dr IsNot Nothing
            e.DataRow("性别")= dr("性别")
           ' e.DataRow("年龄")= dr("出生日期")                 怎么能直接将出生日期转换成年龄呢?
            e.DataRow("家长姓名")= dr("家庭成员姓名")
            e.DataRow("家庭住址")= dr("家庭地址")
            e.DataRow("联系电话")= dr("联系电话")
        End If
    End If
End If

 回到顶部