主题：用户角色与SELECT CASE语句

老师，用户角色User.Isroles不能使用Select Case语句吗？

求完整版的Office 2003安装程序，请老师们施舍

谢谢老师

初始不加载任何数据：

If e.DataTableName = "订单" Then
    e.Filter = "[_Identify] Is Null"
End If

由于_Identify列是不可能为空的，所以上述代码会使得订单表初始不加载任何数据。

老师，我根据上述代码修改后，每次打开表还是有数据，是怎么回事呢？？

 

老师，下面的代码是：如果资金申请表的付款单位列的值是“高科控股集团”，则作为“子公司财务”角色的人将无法使用“审核”和“取消审核”的菜单，如果值是"高科开发建设","高科置业发展","贵州望城投资"，作为“总工办”“集团财务”“业务副总”“资金副总”“集团董事长”角色的人无法使用“审核”和“取消审核”的菜单

下面的代码好像少一段指定数据表的代码，不知怎么增加，请老师指导一下，谢谢

 

If e.DataCol.Name = "付款单位" Then

    Dim K As String = e.DataRow("付款单位")

    Select Case K

        Case "高科控股集团"

          If User.IsRole ("子公司财务") Then

                RibbonTabs("Common").Groups("工具").Items("审核").Enabled = False

               RibbonTabs("Common").Groups("工具").Items("取消审核").Enabled = False

        Case "高科开发建设","高科置业发展","贵州望城投资"

          If User.IsRole( "总工办")  OrElse User.IsRole( "集团财务")OrElse User.IsRole( "业务副总")OrElse User.IsRole( "资金副总")OrElse User.IsRole( "集团董事长")Then

               RibbonTabs("Common").Groups("工具").Items("审核").Enabled = False

               RibbonTabs("Common").Groups("工具").Items("取消审核").Enabled = False

          Else

              RibbonTabs("Common").Groups("工具").Items("审核").Enabled = True

               RibbonTabs("Common").Groups("工具").Items("取消审核").Enabled = True

         End If

      End If

   End Select

End If

代码不起作用，当付款单位列的值为“高科控股集团”时，用户角色为“子公司财务”的人还是能够使用“审核”和“取消审核”的功能

登录人的角色只有一个，就是子公司财务，代码中定义的角色目前都是一个人只有一个角色

老师你不用休息啊，好像都是你从早到晚在回复