此主题相关图片如下：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编辑过]
加好友 
发短信
Post By：2016/7/4 21:52:00 [显示全部帖子]
