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

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

Select Case User.Isroles

 

改成

 

Select Case User.Roles

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

500M左右的，就是完整版的。

 

http://www.baidu.com/s?tn=monline_4_dg&ie=utf-8&f=8&wd=offices2003%20%E4%B8%8B%E8%BD%BD&rsv_bp=1&rsv_enter=1&rsv_sug3=7&rsv_sug4=708&rsv_sug1=2&rsv_sug2=0&inputT=1742&rsv_sug=1

 

谢谢老师

初始不加载任何数据：

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

 你这段代码写在【资金申请表】表的datacolchanged事件，有什么问题？

 

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
            End If
        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 Select
   
End If

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