以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  像下面的这样的代码，如何简化？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20782)
--  作者：akzzwj
--  发布时间：2012/6/19 15:58:00
--  像下面的这样的代码，如何简化？
If User.IsRole("财务打印_材料出库单_浏览")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("浏览").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("浏览").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_创建")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("创建").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("创建").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_编辑")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("编辑").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("编辑").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_删除")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("删除").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("删除").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_模板")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("模板").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("模板").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_报表")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("报表").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("报表").Enabled = False
End If

If User.IsRole("财务打印_入库单_浏览")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("浏览").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("浏览").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_创建")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("创建").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("创建").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_编辑")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("编辑").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("编辑").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_删除")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("删除").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("删除").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_模板")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("模板").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("模板").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_报表")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("报表").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("报表").Enabled = False
End If
千年等一回  15:54:45
If User.IsRole("财务打印_材料出库单_浏览")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("浏览").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("浏览").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_创建")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("创建").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("创建").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_编辑")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("编辑").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("编辑").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_删除")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("删除").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("删除").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_模板")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("模板").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("模板").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_报表")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("报表").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("报表").Enabled = False
End If

If User.IsRole("财务打印_入库单_浏览")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("浏览").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("浏览").Enabled = False
End If

If User.IsRole("财务打印_入库单_创建")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("创建").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("创建").Enabled = False
End If

If User.IsRole("财务打印_入库单_编辑")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("编辑").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("编辑").Enabled = False
End If

If User.IsRole("财务打印_入库单_删除")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("删除").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("删除").Enabled = False
End If

If User.IsRole("财务打印_入库单_模板")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("模板").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("模板").Enabled = False
End If

If User.IsRole("财务打印_入库单_报表")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("报表").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("报表").Enabled = False
End If
--  作者：akzzwj
--  发布时间：2012/6/19 15:59:00
--  
上面的代码发错了，

If User.IsRole("财务打印_材料出库单_浏览")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("浏览").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("浏览").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_创建")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("创建").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("创建").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_编辑")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("编辑").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("编辑").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_删除")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("删除").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("删除").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_模板")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("模板").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("模板").Enabled = False
End If

If User.IsRole("财务打印_材料出库单_报表")  Then
    RibbonTabs("财务打印").Groups("材料出库单").Items("报表").Enabled = True
Else
    RibbonTabs("财务打印").Groups("材料出库单").Items("报表").Enabled = False
End If

If User.IsRole("财务打印_入库单_浏览")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("浏览").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("浏览").Enabled = False
End If

If User.IsRole("财务打印_入库单_创建")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("创建").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("创建").Enabled = False
End If

If User.IsRole("财务打印_入库单_编辑")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("编辑").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("编辑").Enabled = False
End If

If User.IsRole("财务打印_入库单_删除")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("删除").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("删除").Enabled = False
End If

If User.IsRole("财务打印_入库单_模板")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("模板").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("模板").Enabled = False
End If

If User.IsRole("财务打印_入库单_报表")  Then
    RibbonTabs("财务打印").Groups("入库单").Items("报表").Enabled = True
Else
    RibbonTabs("财务打印").Groups("入库单").Items("报表").Enabled = False
End If
--  作者：lihe60
--  发布时间：2012/6/19 16:00:00
--  
参照可视化授权。