afterOpenProject事件
DataTables("表A").replacefor("_Locked", True)
解锁按钮
Tables("表A").Current.Locked = False
保存按钮
Tables("表A").Current.Locked = TrueTables("表A").Current.save