以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树展开后,顺序乱了。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188467)

--  作者:lanbor
--  发布时间:2023/9/21 12:26:00
--  目录树展开后,顺序乱了。
教专家,
我的目录树手动排好顺序后
再一点“展开树” 按钮,这顺序就乱了,需要如何控制?

-----------以下是展开树功能代码”
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编辑过]

--  作者:有点蓝
--  发布时间:2023/9/21 13:36:00
--  
有没有去掉这表的插入行标记列?http://www.foxtable.com/webhelp/topics/1791.htm
--  作者:lanbor
--  发布时间:2023/9/21 15:05:00
--  那插入列标默认为沟选状态
蓝专家
那插入列标默认为沟选状态,
我刚才又把它取消勾选测试一下,
重启项目后,再按以上步骤操作,情况没有改善。

--  作者:有点蓝
--  发布时间:2023/9/21 15:15:00
--  
请上传实例测试
--  作者:lanbor
--  发布时间:2023/9/22 18:23:00
--  我把表的主要内容折叠树里面测试依然会打乱行
蓝专家
请帮忙看看!
感谢

[此贴子已经被作者于2023/9/23 9:08:12编辑过]

--  作者:有点蓝
--  发布时间:2023/9/23 8:50:00
--  
问题已反馈
--  作者:lanbor
--  发布时间:2023/9/23 9:11:00
--  终于找到原因了
我把Fid 子键字段的0值,全部变更为非0值
结果就与“折叠树"中的”部门“例子效果一样了,
任何记录都可交叉移动,并且能长期保留样式。
谢谢专家指引!