主题：窗口中按钮权限设置

 去编写afterLoad事件，查找用户名是张三、按钮不可用的行，然后取出按钮名称，然后设置

 

e.Form.Controls(名称).Enabled = False

For Each dr As DataRow In DataTables("权限表").Select("用户名 = '" & user.Name & "' and 按钮不可用 = true")
    For Each bn As String In dr("按钮名称").split(",")
        If e.Form.Controls.Contains(bn) Then
            e.Form.Controls(bn).Enabled = False
        End If
    Next
Next

 参考代码

 

For Each p As WinForm.TopicPage In Forms("窗口1").Controls("TopicBar1").Pages
    For Each l As WinForm.TopicLink In p.Links
        If l.Text = "任务1" Then
            p.Links("任务1").Visible = False
        End If
    Next
Next

 参考6楼的代码，任务1换成你表里面的名字。

窗口Click事件

 

For Each dr As DataRow In DataTables("权限表").Select("用户名 = '" & user.Name & "' and 按钮不可用 = true")
    For Each bn As String In dr("按钮名称").split(",")
        If bn = e.sender.Name Then
          MessageBox.show("你无权操作!")

          return
        End If
    Next
Next

 

'其余代码

代码没有问题，不行，就上传具体例子。

什么是对应窗口？

 

For Each dr As DataRow In DataTables("权限表").Select("用户名 = '" & user.Name & "' and 按钮不可用 = true")
    For Each bn As String In dr("按钮名称").split(",")
        If bn = e.sender.Name Then
          MessageBox.show("你无权操作!")

          return
        End If
    Next
Next

 

'其余代码

If  e.sender.Name = "button1" then

    Forms("窗口1").Open

ElseIf  e.sender.Name = "button2" then

    Forms("窗口2").Open

end If

请认认真真看14楼代码啊。根本就不同。

不 可 能，上传实例

不需要判断权限的，就不要执行这段代码

 

For Each dr As DataRow In DataTables("权限表").Select("用户名 = '" & user.Name & "' and 按钮不可用 = true")
    For Each bn As String In dr("按钮名称").split(",")
        If bn = e.sender.Name Then
          MessageBox.show("你无权操作!")
          return
        End If
    Next
Next

 

加上判断

 

If e.Sender.Name = "xxxx" OrElse e.Sender.Name = "yyyy" Then

    '不需要权限的代码

Else

    '权限代码

End If