解锁表
Tables("表A").AllowEdit = true
解锁行
Tables("表A").currernt.Locked = false
修改逻辑列的值
Tables("表A").Current("逻辑列") = False