- 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=59483)
-- 发布时间：2014/11/5 9:50:00
-- [求助]拆分日期代码修改
If e.Col.name = "日期" Then
Dim dat As Date = e.Row("日期")
e.Row("年") = dat.Year
e.Row("月") = dat.Month
e.Row("日") = dat.day
End If
老师:上面这段代码,如果日期列是默认日期列,或自动生成的日期,那就不起作用,想请老师帮忙修改一下代码,使默认日期或自动生成的日期也能自动拆分成年、月、日，谢谢！
-- 发布时间：2014/11/5 9:51:00
--
写到datacolchanged事件
If e.DataCol.name = "日期" Then
Dim dat As Date = e.DataRow("日期")
e.DataRow("年") = dat.Year
e.DataRow("月") = dat.Month
e.DataRow("日") = dat.day
End If
-- 发布时间：2014/11/5 9:57:00
--
老师:我试了一下:有错误提示
此主题相关图片如下：qq图片20141105095610.png
,麻烦再帮忙修改一下,谢谢!-- 发布时间：2014/11/5 9:58:00
--
写到datacolchanged事件啊
-- 发布时间：2014/11/5 10:02:00
--
谢谢老师!