主题：求日期表达式

代码：

'DataColChanged事件
If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("月份") = Nothing
    Else
        e.DataRow("月份") = Format(e.DataRow("日期"),"yyyyMMdd")
    End If
End If

如果是表达式列使用的表达式，看示例文件“表达式求年月日.Table”