Foxtable(狐表)用户栏目专家坐堂 → 自定义权限管理后关联表显示不出来?已解决!!


  共有8878人关注过本帖平板打印复制链接

主题:自定义权限管理后关联表显示不出来?已解决!!

帅哥哟,离线,有人找我吗?
zpx_2012
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:976 积分:8521 威望:0 精华:0 注册:2012/2/9 16:35:00
自定义权限管理后关联表显示不出来?已解决!!  发帖心情 Post By:2012/10/7 23:50:00 [只看该作者]

各位老师,

 如下图,


图片点击可在新窗口打开查看此主题相关图片如下:360截图20121006-003.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:360截图20121006-004.jpg
图片点击可在新窗口打开查看

自定义管理权限,在项目的afteropenProject中用了如下代码:

 '让所有表及列均不可见及不可编辑.
    For Each t As Table In Tables
        t.Visible = False
        t.AllowEdit = False
        For Each c As Col In t.Cols
            c.Visible = False
            c.AllowEdit =  False
        Next
    Next

然后在用户登陆窗口中设计了不同用户的查看和编辑权限的代码,动态加载也在主表的afterload中用了加载关联表数据的代码如下:
Select Case e.DataTable.Name
    Case "订单"
        If DataTables("订单").DataRows.Count = 0 Then '如果订单表没有数据
            DataTables("订单明细").LoadFilter = "订单编号 Is Null" '不加载订单明细
        Else
            Dim ids As String
            For Each dr As DataRow In DataTables("订单").DataRows
                ids = ids & ",'" & dr("订单编号") & "'"
            Next
            ids= ids.Trim(",")
            DataTables("订单明细").LoadFilter = "订单编号 In (" & ids & ")"
        End If
        DataTables("订单明细").Load()
  

主表和子表的数据都可以按权限正确显示,但关联表却显示不出来,请问是什么原因?

 

谢谢!

 

[此贴子已经被作者于2012-10-8 18:04:36编辑过]

 回到顶部