DataColChanged事件
If e.DataCol.Name = "A" Then If e.DataRow.isnull("A") Then e.DataRow("B") = Nothing Else Dim d As Date = #8:00# e.DataRow("B") = d.AddMinutes(e.DataRow("A")) End IfEnd If