DataColChanged事件
If e.DataCol.Name = "日期" Then
e.DataRow("小时") = Format(e.datarow("日期"), "HH时")
End If