以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树控制表数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150278)
--  作者：yifan3429
--  发布时间：2020/5/26 7:47:00
--  目录树控制表数据
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim pd As WinForm.TreeNode = trv.SelectedNode
If pd.Level = 2 Then
    pd = pd.ParentNode
End If
Dim i As Integer
Do
    i = i+ 1
    Dim nm As String  =  "权限" & i
    If pd.Nodes.Contains(nm) = False
        Dim nd As WinForm.TreeNode = pd.Nodes.Add(nm)
        Dim dr As DataRow = DataTables("菜单目录").AddNew()
        dr("子菜单") = pd.name
        dr("权限") = nm
        trv.SelectedNode = nd
        trv.BeginEdit
        Exit Do
    End If
Loop
图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20200526074304.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/5/26 8:41:00
--  
dr("主分类") = pd.parentnode.name