方法一:加验证,如果新的值不包含旧的值,就不能修改。DataColChanging事件
If e.DataCol.name = "第一列" If e.OldValue > "" Then If e.newvalue = Nothing OrElse e.NewValue.contains(e.OldValue) = False Then msgbox("不能修改") e.cancel = True End If End IfEnd If