主题：TreeView1与表中不同步

老师，这样是不是不用把分类、分组授权，只需要把名称加入到集合呢？？？

这样反而方便，修改分类、分组、名称后都不用去修改可见、可用集合里面的数据，我弄了，在授权管理窗口的，TreeView1控件中，NodeMouseClick事件，选择不同的节点，授权好的集合在TreeView4、TreeView3中不显示。

 

---

以下内容是专门发给有点蓝浏览

---

还有什么问题？

1、如果名称为true,上一级分组、分类自动为true；

2、在  授权管理  窗口，TreeView1控件中，NodeMouseClick事件，选择不同的节点，授权好的集合在TreeView4、TreeView3中不显示；

3、不可用时，主窗口点击，提示不可见。

NodeMouseClick事件

谢谢老师这几天指导，我自己修改完了，最后一个问题，就是在主点击不可用的图标时，怎么判断不可用呢，没弄出来？

 

---

以下内容是专门发给有点蓝浏览

---

RowActivate事件

Dim r As DataRow  = e.Sender.Current.tag

Dim dr As DataRow = DataTables("用户管理").Find("',' + 菜单可用集合 + ',' like '%," & r("编号") & ",%' and 账号='" & _username & "'")

If dr IsNot Nothing Then

    Functions.remove("函数")

    Dim Code As String

    Code = e.sender.current.tag("代码")

    Functions.Add("函数",Code)

    Functions.Complie()

    Functions.Execute("函数")

End If

老师，还麻烦一下，我这个导航表结构如下，在生存分组和名称时，把空白的也生成出来了，怎么排除空值不生成呢？

 

此主题相关图片如下：qq截图20190929165636.png


此主题相关图片如下：qq截图20190929165656.png

 

Dim lvw As WinForm.ListView = forms("主窗口").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) '指定列宽
Next
Dim drs As List(of DataRow )= DataTables("导航").Select ("[分类] = '"& pag.SelectedPage.Name & "'","序号") '增加分组
For Each dr As DataRow In drs
    If array.IndexOf(kjjhs,dr("编号")) = -1 Then '不可见的跳过
        Continue For
    End If
    If lvw.Groups.contains(dr("分组")) =False And dr("分组") IsNot Nothing  Then
        Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
        grp.Name = dr("分组")
        grp.Text = dr("分组")
    End If
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    Dim key As String= dr("图标")
    lvw.Images.AddImage(Key, Key, Key) '添加代表这个名称的一对图标
    r.ImageKey = Key '指定图标键值
    r.Group = dr("分组") '指定所属分组
    r.Tag = dr
    For Each cl As String In cls '逐列取值
        r(cl) = dr(cl)
    Next
    If array.IndexOf(kyjhs,dr("编号")) = -1 Then '不可用的着色
        r.ForeColor= Color.Silver
    End If
    lvw.ResumeRedraw() '恢复绘制
    lvw.View = ViewMode.LargeIcon '显示模式切换为大图标
Next

Dim drs As List(of DataRow )= DataTables("导航").Select ("[分类] = '"& pag.SelectedPage.Name & "' and 名称 is not null","序号") 

还有个问题，老师，我的首页页面是没有图标，但是当切换不同分类页面后，在切换到我的首页不刷新，不刷新，会保留那个分组和图标。

没看懂，截图说明一下