以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期列拆分  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188028)

--  作者:myzy
--  发布时间:2023/8/28 12:02:00
--  [求助]日期列拆分
列一:2023-08-29 13:33:00    拆分成   列二:2023-08-29    列三:13:33   求代码?谢谢!
--  作者:有点蓝
--  发布时间:2023/8/28 13:31:00
--  
列二、列三是字符列还是日期列?

--  作者:myzy
--  发布时间:2023/8/28 13:34:00
--  
都是时间格式


--  作者:有点蓝
--  发布时间:2023/8/28 13:38:00
--  
比如

If e.DataCol.Name = "列一" Then 
    If e.DataRow.IsNull("
列一"Then 
        e.
DataRow("
列二") = Nothing 
        e.
DataRow("
列三") = Nothing 
    
Else
dim d as date =e.DataRow("列一")
        e.
DataRow("
列二") = d.date
        e.
DataRow("
列三") = d
    End
 If
End
 
If


--  作者:myzy
--  发布时间:2023/8/28 15:49:00
--  
请教,如果第三列是字符列,怎么改呢?


--  作者:有点蓝
--  发布时间:2023/8/28 15:50:00
--  
e.DataRow("列三") = format(d,"HH:mm")