主题：帮忙完善代码

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:完善代码.txt

一级菜单 菜单ID为2位数 已判断2位数为1级菜单  二级菜单ID为4位数 请问 把二级菜单加入到一级菜单怎么写  规则 一级菜单ID：01 那么二级菜单就是0101 ，0102   求完善代码  代码已上传附件
此主题相关图片如下：权限.png

   

查找所有的二级菜单

 

Dim xx As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim cmd As New SQLCommand
cmd.ConnectionName = "123"
Dim dt As DataTable
Dim i As Integer
cmd.CommandText = "select [菜单ID], [菜单名称], len(菜单ID) as 长度 fr om {View_1}"
dt = cmd.ExecuteReader
For Each dr As DataRow In dt.Select("长度 = 2")
    Dim p As WinForm.TopicPage = xx.Pages.Add(dr("菜单id"),dr("菜单名称"))
    For Each cdr As DataRow In dt.Select("菜单ID = '" & dr("菜单id") & "'")
        p.Links.Add(cdr("菜单id"),cdr("菜单名称"))
    Next
Next

一级菜单都变成二级菜单了  而且二级菜单  0102 二级权限 没有添加到 用户管理的下面 
此主题相关图片如下：123.png

搞定了 

搞定了