以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  折叠表中的层级型 上移行和下移,如何实现等级序号自动更改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189637)

--  作者:weibu
--  发布时间:2023/12/13 11:12:00
--  折叠表中的层级型 上移行和下移,如何实现等级序号自动更改
老师您好,折叠表中的层级型 上移行和下移,并未更新等级序号,我上移行后,下次打开又恢复原状了、
如何实现上移和下移行等级序号自动更改?

--  作者:有点蓝
--  发布时间:2023/12/13 11:15:00
--  
上移行后保存了吗
--  作者:weibu
--  发布时间:2023/12/13 14:12:00
--  
保存了,右移和左移后的对应的层级数值会自动改变。但上移下移层级数值没有改变的,所以重新打开后又恢复了
--  作者:有点蓝
--  发布时间:2023/12/13 14:14:00
--  
请上传实例说明
--  作者:weibu
--  发布时间:2023/12/13 15:48:00
--  
蓝老师,我用的是官方的“BOM数据”这个实例做的测试。是处于开发状态的操作,点击保存为整个项目的保存按钮。
--  作者:有点蓝
--  发布时间:2023/12/13 16:10:00
--  
“BOM数据”这个实例哪个表做的测试?都没有等级序号这个列呀
--  作者:weibu
--  发布时间:2023/12/13 16:15:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20231213161357.png
图片点击可在新窗口打开查看

是级码

--  作者:有点蓝
--  发布时间:2023/12/13 16:35:00
--  
这个上移和下移是不会更改级码的,只有左移和右移会。自己写代码处理一下

Dim r As Row = Tables("物料清单B").Current
Dim pr As Row = r.PrevSlibing
Dim s As String = pr("级码")
pr("级码") = r("级码")
r("级码") = s
Syscmd.GridTree.MoveUp

--  作者:weibu
--  发布时间:2023/12/13 20:59:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20231213205547.png
图片点击可在新窗口打开查看
老师这个上移行后,如果两条数据(上移行和被动下移行)有子数据的话,这两行的所有子数据的级码并没有跟着更新

--  作者:有点蓝
--  发布时间:2023/12/14 8:30:00
--  
遍历所有子级处理一下:http://www.foxtable.com/webhelp/topics/3386.htm