- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于时间字段转换问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128072)
-- 发布时间：2018/11/28 11:46:00
-- [求助]关于时间字段转换问题
老师，我有如图的年，月，日三个从EXECL导入单独整数型字段，怎么在表中按照这三个字段内容自动生成一个日期字段，比如像2018-01-04
此主题相关图片如下：qq截图20181128114123.png
[此贴子已经被作者于2018/11/28 11:46:54编辑过]
-- 发布时间：2018/11/28 12:31:00
--
参考代码，如
Dim d As Date = new date(2018, 1, 2)
msgbox(d)
-- 发布时间：2018/11/28 14:26:00
--
老师，new date()函数我指定数值转变可以，现在我想在已经做好的一张表里面统一全部自动转成日期，如2018-01-01，就不太明白了，请老师指导！附上实例
因为我导入的EXECL文件中的日期是按年，月，日分开录入的
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
[此贴子已经被作者于2018/11/28 14:30:04编辑过]
-- 发布时间：2018/11/28 15:30:00
--
datacolchanged事件
Select Case e.DataCol.name
Case "年", "月", "日"
Dim str As String = e.DataRow("年") & "-" & e.DataRow("月") & "-" & e.DataRow("日")
Dim d As Date
If Date.TryParse(str, d) Then
e.DataRow("日期") = d
Else
e.DataRow("日期") = Nothing
End If
End Select
-- 发布时间：2018/11/28 15:54:00
--
甜老师，在年月日的列中有变化的时候，日期能写入需要的格式。
现在我想在导入的表中不用改变年月日的值，在日期字段中能根据年、月、日字段中已有的值自动写入。
-- 发布时间：2018/11/28 16:37:00
--
以下是引用weipeng6999在2018/11/28 15:54:00的发言：
甜老师，在年月日的列中有变化的时候，日期能写入需要的格式。
现在我想在导入的表中不用改变年月日的值，在日期字段中能根据年、月、日字段中已有的值自动写入。
重置列
http://www.foxtable.com/webhelp/scr/1469.htm