专家坐堂-用户角色与SELECT CASE语句Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用户角色与SELECT CASE语句  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56321)

--  作者：爱相随
--  发布时间：2014/9/3 10:04:00
--  用户角色与SELECT CASE语句
老师，用户角色User.Isroles不能使用Select Case语句吗？
下列代码提示错误
Select Case User.Isroles

    Case "部门负责人","总工办","集团财务","集团董事长","付款人","付款复核"

        Tables("XMXXB").Visible = False

        Tables("KSXXB").Visible = False

        Tables("单位表").Visible = False

        Tables("费用类别").Visible = False

        Tables("合同类别").Visible = False

    Case "部门负责人","总工办"

        Tables("FKB").Visible = False

End Select

--  作者：有点甜
--  发布时间：2014/9/3 10:05:00
--

Select Case User.Isroles

改成

Select Case User.Roles

[此贴子已经被作者于2014-9-3 10:05:28编辑过]

--  作者：爱相随
--  发布时间：2014/9/3 11:57:00
--
求完整版的Office 2003安装程序，请老师们施舍

--  作者：有点甜
--  发布时间：2014/9/3 12:14:00
--

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

--  作者：爱相随
--  发布时间：2014/9/4 14:48:00
--
谢谢老师

--  作者：爱相随
--  发布时间：2014/9/4 14:49:00
--

初始不加载任何数据：

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

由于_Identify列是不可能为空的，所以上述代码会使得订单表初始不加载任何数据。
老师，我根据上述代码修改后，每次打开表还是有数据，是怎么回事呢？？

--  作者：Bin
--  发布时间：2014/9/4 14:50:00
--
表名搞对了?事件写对? 没有可能,请上例子.

--  作者：爱相随
--  发布时间：2014/9/4 22:46:00
--

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

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

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

--  作者：有点甜
--  发布时间：2014/9/4 22:50:00
--

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

--  作者：爱相随
--  发布时间：2014/9/4 23:03:00
--
代码不起作用，当付款单位列的值为“高科控股集团”时，用户角色为“子公司财务”的人还是能够使用“审核”和“取消审核”的功能