2、在窗口中加入一个目录树控件和一个按钮,按钮的代码为:
Dim tr As WinForm.TreeView =
e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As
DataTable = DataTables("表A")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("全部")
For
Each dr As
DataRow
In dt.datarows
If
dr.IsNull("父键") Then
nd
= tr.Nodes.Add(dr("键"),dr("标题"))
Functions.Execute("AddChildren",nd,dt)
End
If
Next
tr.ResumeRedraw()
单击此按钮,即可根据“父键”和“键”两列的值,生成目录树。
如果把第一行和第二行和第三行用权限隐藏, 这样,就生成不了了,
应该怎么改这个代码呢?
最高等级的 那个 父键 不能有 上一级么?
[此贴子已经被作者于2020/2/21 0:56:40编辑过]