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

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122493

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目.table

通过学习左导航，怎么添加权限呢。例如，行政分组：不能看见工程管理部和财务审计部。录入分组不能看见：质量安全部

请问，放在哪个位置呢？

我放在：AfterOpenProject 和左导航：AfterLoad 都无效。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

老师：按照这样弄了，还是不行呢？

谢谢！

主窗口：怎么改呢？

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.StopRedraw() '停止绘制

lvw.Groups.Clear() '清除原来的分组

lvw.Columns.Clear() '清除原来的列

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.Details '显示模式为详细信息

lvw.TitleSize = New Size(130,80) '设置平铺区域大小

lvw.GridLines = True '显示网格线

Dim cls() As String = {"名称"} '定义列名

Dim wds() As Integer = {100} '定义列宽

For i As Integer = 0 To cls.Length - 1 '增加列

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

c.Name = cls(i) '指定列名

c.Text = cls(i) '指定标题,这里标题和列名相同

c.Width = wds(i) '指定列宽

'lvw.Columns("人口").TextAlign = HorizontalAlignment.Right

'lvw.Columns("面积").TextAlign = HorizontalAlignment.Right

For Each zh As String In DataTables("导航").GetValues("分组","","序号") '增加分组

Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()

grp.Name = zh

grp.Text = zh

For Each dr As DataRow In DataTables("导航").DataRows

Dim Key As String = dr("图标")

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

lvw.Images.AddImage(Key, Key, Key) '添加代表这个名称的一对图标

r.ImageKey = Key '指定图标键值

r.Group = dr("分组") '指定所属分组

r.Tag = dr

For Each cl As String In cls '逐列取值

'Select Case cl

'Case "人口"

'r(cl) = format(dr(cl),"#,000") & "万"

'Case "面积"

'r(cl) = format(dr(cl),"#,000") & "k㎡"

'Case Else

r(cl) = dr(cl)

'End Select

lvw.ResumeRedraw() '恢复绘制

lvw.View = ViewMode.LargeIcon '显示模式切换为大图标

自己始终看不知道错在哪，麻烦您。帮忙改改吧！

谢谢！

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.StopRedraw() '停止绘制

lvw.Groups.Clear() '清除原来的分组

lvw.Columns.Clear() '清除原来的列

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.Details '显示模式为详细信息

lvw.TitleSize = New Size(130,80) '设置平铺区域大小

lvw.GridLines = True '显示网格线

Dim cls() As String = {"名称"} '定义列名

Dim wds() As Integer = {100} '定义列宽

For i As Integer = 0 To cls.Length - 1 '增加列

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

c.Name = cls(i) '指定列名

c.Text = cls(i) '指定标题,这里标题和列名相同

c.Width = wds(i) '指定列宽

Dim zaj As List(of String)

If user.Group = "行政" Then

zaj = DataTables("导航").GetValues("分组","分组 not in ('预算','设置')","序号")

ElseIf user.Group = "录入" Then

zaj = DataTables("导航").GetValues("分组","分组 not in ('财务')","序号")

Else

zaj = DataTables("导航").GetValues("分组","","序号")

End If

''For Each zh As String In zaj

''Dim grp As List(of String) = DataTables("导航").GetValues("分组","","序号")

'' Dim grp As String In DataTables("导航").GetValues("分组","","序号") '增加分组

'Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()

''Dim grp As WinForm.ListViewGroup = DataTables("导航").GetValues("分组","","序号")

'grp.Name = zh

'grp.Text = zh

'Next

For Each zh As String In zaj

Dim zh As String In DataTables("导航").GetValues("分组","","序号") '增加分组