去编写ChangeEdit事件
If e.Col.name = "第四列" AndAlso e.Text Like "* 00:00" Then Dim d As Date = e.text e.Table.FinishEditing e.Row(e.Col.name) = new Date(d.year, d.Month, d.Day, Date.Now.Hour, Date.Now.Minute,0) e.Table.StartEditingEnd If