锁定列就不能编辑了 :
if 条件····· then
DataTables("表").DataCols("要锁定的列1").AllowEdit = False
DataTables("表").DataCols("要锁定的列2").AllowEdit = False
end if
表的PrepareEdit事件中输入:
If e.Row("用户名") <> "甲“" Then e.Cancel = TrueEnd If