DataColChanging事件。
If e.DataCol.name = "第一列" AndAlso e.OldValue <> Nothing Then If e.NewValue = nothing orelse e.NewValue.contains(e.OldValue) = False Then msgbox("你修改了原值") e.cancel = True End IfEnd If