方法一,添加表达式列
http://www.foxtable.com/webhelp/scr/1285.htm
方法二,编写datacolchanged事件代码
If e.datacol.name = "日期" Then
If e.newvalue = nothing Then
e.datarow("月份") = nothing
Else
e.datarow("月份") = e.newvalue.month
End If