这样ok: datacolchanged:
If e.DataCol.Name = "日期" Then
If e.DataRow("日期") = "001-01-01" Then
e.DataRow("日期") = Nothing
End IfEnd If