以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于日期分解显示需求  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123805)
--  作者：工匠
--  发布时间：2018/8/23 13:24:00
--  [求助]关于日期分解显示需求
老师好！
             现在有个需求：1.表增加行时，自动录入需求相应的日期分解格式内容。2.根据表列（年月日小时分秒），进行分解显示需求列格式内容。万分感谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:日期格式分开显示.foxdb

谢谢！
--  作者：有点蓝
--  发布时间：2018/8/23 14:17:00
--  
datacolchanged事件

If e.DataCol.Name = "年月日小时分秒"
    If e.DataRow.IsNull("年月日小时分秒") Then
        e.DataRow("年") = Nothing
        e.DataRow("小时分秒") = Nothing
    Else
        Dim d As Date = e.NewValue
        e.DataRow("年") = d.Year
        e.DataRow("小时分秒") = Format(d,"HH:mm:ss")
    End If
End If

剩下的参考帮助自己做：