主题：[求助]自动拆分日期 问题帮忙看看

 If e.Col.name = "A" Then

if e.row.isnull("A") = false
   Dim dat As Date = e.Row("A") 
   e.Row("B") = dat.Year
   e.Row("C") = dat.Month
   e.Row("d") = dat.day

endif
End If