以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  批量添加折叠子目录怎么做  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=190295)
--  作者：有点蓝
--  发布时间：2024/1/29 13:57:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=177609&skin=0
--  作者：有点蓝
--  发布时间：2024/1/31 8:48:00
--  
Dim nms() As String = {"A", "B", "C"}
dim r as row = Tables("订单_项目清单").current
For Each nm As String In nms
    Syscmd.GridTree.AddChild()
    Tables("订单_项目清单").current("使用区域及项目明细") = nm 
    Tables("订单_项目清单").position = r.index
Next