以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过由 New GroupTableBuilder生成的临时表，如何作为目录树的BuildTree(DataTableName, Columns, Filter, Sort)的第一参数？软件显示找不到临时表，该如何解决啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113076)
--  作者：guosheng
--  发布时间：2018/1/8 17:26:00
--  通过由 New GroupTableBuilder生成的临时表，如何作为目录树的BuildTree(DataTableName, Columns, Filter, Sort)的第一参数？软件显示找不到临时表，该如何解决啊？
谢谢了
--  作者：有点甜
--  发布时间：2018/1/8 18:11:00
--  

贴出你写的代码

 

Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree(datatables("订单"), "产品|客户|雇员")
--  作者：guosheng
--  发布时间：2018/1/9 9:10:00
--  

BuildTree的第一个参数需要时datatable，如果是临时表（表1）的话，应该怎么引用啊？

下拉窗口的afterload中代码是：

Dim bd1 As New GroupTableBuilder("表1",DataTables("产值信息表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("地块") \'根据型号分组
bd1.Groups.AddDef("合同名称") \'根据型号分组
bd1.Groups.AddDef("产值年份") \'根据型号分组
bd1.Groups.AddDef("产值月份") \'根据型号分组
bd1.Totals.AddDef("完成产值")\'对数量进行统计
dt1 = bd1.BuildDataSource()


Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("表1","产值年份|产值月份|地块|公司名称","","产值年份,产值月份 desc")
For Each nd As WinForm.TreeNode In trv.AllNodes  \'遍历节点
    If nd.Level = 0 OrElse nd.Level = 1 OrElse nd.Level = 2 OrElse nd.Level =3 Then
        nd.Expand
    End If
Next
--  作者：有点甜
--  发布时间：2018/1/9 9:32:00
--  

Dim bd1 As New GroupTableBuilder("表1",DataTables("产值信息表"))
bd1.Groups.AddDef("地块") \'根据型号分组
bd1.Groups.AddDef("公司名称") \'根据型号分组
bd1.Groups.AddDef("产值年份") \'根据型号分组
bd1.Groups.AddDef("产值月份") \'根据型号分组
bd1.Totals.AddDef("完成产值")\'对数量进行统计
Dim dt = bd1.Build(True)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"产值年份|产值月份|地块|公司名称","","产值年份,产值月份 desc")
For Each nd As WinForm.TreeNode In trv.AllNodes  \'遍历节点
    If nd.Level = 0 OrElse nd.Level = 1 OrElse nd.Level = 2 OrElse nd.Level =3 Then
        nd.Expand
    End If
Next