- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 批量添加折叠子目录怎么做 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190295)
-- 发布时间：2024/1/29 13:37:00
-- 批量添加折叠子目录怎么做
Syscmd.GridTree.AddChild()
不加折叠就是下面的代码
用到折叠就不会了
Dim drs As List(Of DataRow) = DataTables("字典_项目明细").SQLSelect("目录 = \'柜类\'")
For Each dr As DataRow In drs
Dim de As DataRow = DataTables("字典_项目明细").AddNew
de("单位") = dr("名称")
Next
红框内的及时循环添加进来的
此主题相关图片如下：企业微信截图_20240129133629.png
-- 发布时间：2024/1/29 13:57:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=177609&skin=0
-- 发布时间：2024/1/31 5:58:00
--
Dim nms() As String = {"A", "B", "C"}
For Each nm As String In nms
Dim dr As DataRow
dr = DataTables("订单_项目清单").AddNew
\' dr = Syscmd.GridTree.AddChild("订单_项目清单")
dr("使用区域及项目明细") = nm
Next
此主题相关图片如下：企业微信截图_20240131055730.png
此主题相关图片如下：企业微信截图_20240131055730.png-- 发布时间：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