DataColChanging事件
Select Case e.DataCol.Name
Case "数量"
If e.NewValue <> Nothing AndAlso e.OldValue = Nothing AndAlso e.DataRow.Isnull("数量记录")
e.DataRow("数量记录") = e.NewValue
End If
Case "地点"
If e.NewValue > "" AndAlso e.OldValue Is Nothing AndAlso e.DataRow.Isnull("地点记录")
e.DataRow("地点记录") = e.NewValue
End If
End Select