主题：[求助]关于权限问题请老师解答。

表事件

一般程序处罚表_PrepareEdit

e.Cancel = True

一般程序处罚表_BeforeDeleteDataRow

If _UserName <> "管理员" Then

    MessageBox.Show("您无权限进行此项操作,请与您的管理员联系!!!", "  警  告")

    e.Cancel = True

End If

窗口表事件

窗口与控件事件

工作日志录入_AfterLoad

Tables("工作日志表").AllowEdit = False '表不可编辑

工作日志录入_Enter

Dim ctl As WinForm.Control = e.Sender

Select Case ctl.BindingField

    Case "工作日志表"

        If _Username = "管理员" Then

            ctl.ReadOnly = BooleanEnum.False '允许编辑

        Else

            ctl.ReadOnly = BooleanEnum.True '禁止编辑

        End If

End Select

这个是第二个窗口的。图片显示为4