-- 级码生成目录树
怎么会有数字节点呢
此主题相关图片如下:捕获2.png
此主题相关图片如下:捕获1.png
窗口加载代码:
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable =Tables("组织机构2_Table1").DataTable
tr.StopRedraw()
tr.Nodes.Clear
tr.GenerateTree(dt,"级码","名称", ".")
tr.ResumeRedraw()