DataColChanged事件
If e.DataCol.Name = "报检" then
If e.NewValue = True Then
e.DataRow("报检日期") = Date.Today
Else
e.DataRow("报检日期") = Nothing
End If