写到DataColChanged事件
If e.DataCol.Name = "日期" AndAlso e.NewValue <> Nothing Then e.DataTable.ReplaceFor("日期", e.DataRow("日期"), "[日期] Is Null")End If