主题：窗口录入数据当前行权限

Enter事件

If Tables("表A").current("第一列") = True Then
    e.sender.ReadOnly = BooleanEnum.True '不允许编辑
Else
    e.sender.ReadOnly = BooleanEnum.False '允许编辑
End If