放到DataColChanged事件中,在窗口和表中一样能用:
If e.DataCol.Name = "已申购" Then If e.DataRow("已申购") = True e.DataRow("申购日期") = Today() Else e.DataRow("申购日期") = Nothing End IfEnd If