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

 写到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