各位老师,
如下图,
此主题相关图片如下: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编辑过]