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

Select Case User.Isroles

改成

Select Case User.Roles

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

 你这段代码写在【资金申请表】表的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

 1、你改成9楼的代码。

 2、你的用户角色，是否定义了多个角色？多个角色不能用IsRole，要用 user.Roles Like '%子公司财务%'

 你msgbox看一下值。

 msgbox("ddd" & k & "ddd")

 msgbox("ddd" & user.Roles & "ddd")