主题：[求助]拆分日期代码修改

 

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

老师:上面这段代码,如果日期列是默认日期列,或自动生成的日期,那就不起作用,想请老师帮忙修改一下代码,使默认日期或自动生成的日期也能自动拆分成年、月、日，谢谢！