标题：批量添加折叠子目录怎么做

1楼

yifan3429 发表于：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("名称")

红框内的及时循环添加进来的

此主题相关图片如下：企业微信截图_20240129133629.png

2楼

有点蓝 发表于：2024/1/29 13:57:00

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=177609&skin=0

3楼

yifan3429 发表于：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

此主题相关图片如下：企业微信截图_20240131055730.png

4楼

有点蓝 发表于：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

共4 条记录, 每页显示 10 条, 页签: [1]