- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树生成新版是否有BUG (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87148)
-- 发布时间：2016/7/4 21:52:00
-- 目录树生成新版是否有BUG
此主题相关图片如下：qq图片20160704214901.png
此主题相关图片如下：qq图片20160704215140.png
生成语句为：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
tr.StopRedraw()
tr.Nodes.Clear
Dim DataTableName As String = "DataStandard"
Dim Columns As String = "BigClass_名称|DropDownClass|DropDownName"
Dim Filter As String = ""
Dim Sort As String = "" \'"DataId" 加上这个排序语句 则出现不正常。这个指示为录入顺序。
Dim mj As Boolean = True
Dim js As Integer
tr.BuildTree(DataTableName, Columns, Filter, Sort)
tr.Nodes.Insert("无",0)
\'tr.ExpandAll
tr.ResumeRedraw()
[此贴子已经被作者于2016/7/4 21:54:30编辑过]
-- 发布时间：2016/7/4 21:54:00
--
排序，要和分组一致，比如
trv.BuildTree("表A", "第一列|第二列|第三列", "", "第一列,_Sortkey,_Identify")
[此贴子已经被作者于2016/7/4 21:53:56编辑过]