主题：日期格式转换问题

如果用表达式，参考

http://www.foxtable.com/webhelp/scr/1285.htm

如果写代码

If e.DataCol.Name = "日期" Then
    If e.NewValue = Nothing Then
        e.DataRow("年") = Nothing
       
        e.DataRow("月") = Nothing
       
        e.DataRow("日") = Nothing
    Else
        e.DataRow("年") = e.newvalue.year
       
        e.DataRow("月") = e.newvalue.month
       
        e.DataRow("日") = e.newvalue.day
    End If
End If