不同用户看到不同的表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，比如我现在想让张三登录只能看到园林固废配方表，在项目事件AfterOpenProject中设置了如下代码：

Select Case User.Name

Case "张三"

Tables("园林固废配方表").Visible = False

End Select

但是我那个共有窗口中的任务栏里面没有变化，那个AfterLoad中不知道怎么写权限代码，希望老师能帮我详细解答一下，谢谢了。

以下代码是在AfterLoad中写的任务栏窗口

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")

With tpb.Pages

.Add("项目配方", "项目配方", "00022.ico").Collapsed = True

.Add("配方数据", "配方数据", "09154.ico").Collapsed = True

.Add("日志文件", "日志文件", "09148.ico").Collapsed = True

End With

With tpb.Pages("项目配方").Links

.Add("园林固废配方表", "园林固废配方表","01773.ico")

.Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")

.Add("鄂尔多斯砂配方表", "鄂尔多斯砂配方表","01773.ico")

.Add("海砂配方表", "海砂配方表","01773.ico")

.Add("风积砂配方表", "风积砂配方表","01773.ico")

.Add("乐亭砂配方表", "乐亭砂配方表","01773.ico")

.Add("泉州砂配方表", "泉州砂配方表","01773.ico")

.Add("铅锌矿配方表", "铅锌矿配方表","01773.ico")

.Add("铜尾矿配方表", "铜尾矿配方表","01773.ico")

.Add("金尾矿配方表", "金尾矿配方表","01773.ico")

.Add("铁尾矿配方表", "铁尾矿配方表","01773.ico")

.Add("铬渣配方表", "铬渣配方表","01773.ico")

.Add("碳铬渣配方表", "碳铬渣配方表","01773.ico")

.Add("碱渣配方表", "碱渣配方表","01773.ico")

.Add("广丰泥配方表", "广丰泥配方表","01773.ico")

.Add("硼泥配方表", "硼泥配方表","01773.ico")

.Add("赤泥配方表", "赤泥配方表","01773.ico")

.Add("污泥配方表", "污泥配方表","01773.ico")

End With

With tpb.Pages("配方数据").Links

.Add("园林固废数据表", "园林固废数据表","01774.ico")

.Add("建筑垃圾数据表", "建筑垃圾数据表","01774.ico")

.Add("鄂尔多斯砂数据表", "鄂尔多斯砂数据表","01774.ico")

.Add("海砂数据表", "海砂数据表","01774.ico")

.Add("风积砂数据表", "风积砂数据表","01774.ico")

.Add("乐亭砂数据表", "乐亭砂数据表","01774.ico")

.Add("泉州砂数据表", "泉州砂数据表","01774.ico")

.Add("铅锌矿数据表", "铅锌矿数据表","01774.ico")

.Add("铜尾矿数据表", "铜尾矿数据表","01774.ico")

.Add("金尾矿数据表", "金尾矿数据表","01774.ico")

.Add("铁尾矿数据表", "铁尾矿数据表","01774.ico")

.Add("铬渣数据表", "铬渣数据表","01774.ico")

.Add("碳铬渣数据表", "碳铬渣数据表","01774.ico")

.Add("碱渣数据表", "碱渣数据表","01774.ico")

.Add("广丰泥数据表", "广丰泥数据表","01774.ico")

.Add("硼泥数据表", "硼泥数据表","01774.ico")

.Add("赤泥数据表", "赤泥数据表","01774.ico")

.Add("污泥数据表", "污泥数据表","01774.ico")

End With

With tpb.Pages("日志文件").Links

.Add("日志文件表", "日志文件表","01676.ico")

End With

主题：不同用户看到不同的表问题