去编写dataColChanged事件
If e.DataCol.Name = "打卡时间" Then If e.newvalue = Nothing Then e.DataRow("年") = Nothing e.DataRow("月") = Nothing Else e.DataRow("年") = e.newvalue.Year e.DataRow("月") = e.newvalue.Month End IfEnd If
http://www.foxtable.com/help/topics/1337.htm