请教专家，
我的目录树手动排好顺序后
再一点“展开树” 按钮，这顺序就乱了，需要如何控制？
-----------以下是展开树功能代码”
Dim eb1 As WinForm.Button = e.Form.Controls("BOM_EXP")
Dim st As New InlineTreeSetting
If eb1.text = "展开树" Then
st.ParentCol = "locate"
st.ChildCol = "fid"
st.ExpandTo = -1 '---全部展开
st.UseStyle = True
st.TreeCol = "ITEM_CODE"
Vars("ok_true") = False
st.SortCol = "sysgrdtreesort" ‘------------这是排序列
Tables("Custom_BOMchild").ShowGridTree(st)
eb1.Text = "折叠树"
Else
st.ParentCol = "locate"
st.ChildCol = "fid"
st.ExpandTo = 1 '--不展开
st.UseStyle = True
st.TreeCol = "ITEM_CODE"
Vars("ok_true") = True
st.SortCol = "sysgrdtreesort" ‘------------这是排序列
Tables("Custom_BOMchild").ShowGridTree(st)
eb1.text = "展开树"
End If
---------------------------------
[此贴子已经被作者于2023/9/21 15:28:12编辑过]
加好友 
发短信
Post By：2023/9/21 12:26:00 [显示全部帖子]
