主题：求助：按钮可视化授权

其实就是在afterLoad事件，循环每一个控件，然后查表取得权限，设置Visible和Enabled而已。

For Each c As Winform.Control In e.Form.Controls
    Dim fdr As DataRow = DataTables("权限").find("名称 = '" & c.name & "' and 窗口 = '" & e.form.name & "'")
    If fdr IsNot Nothing Then
        c.visble = fdr("可见")
        c.Enabled = fdr("可用")
    End If
Next