以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表生成器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84175)
--  作者：blsu33
--  发布时间：2016/4/25 11:03:00
--  [求助]表生成器
红袍老师，

Dim jb As New SQLJoinTableBuilder("查询表1","表1")
jb.C
jb.AddTable("表1","目录ID","目录表","目录ID")
jb.AddCols("{表1}.目录ID","加载表")
jb.Build()
以上可以生成表，代码没有问题

Dim t As Table = Tables("查询表1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "目录ID"
g.TotalOn = "加载表"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "加载表"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
绿色代码也没有问题 
e.Form.Controls("Table3").Table.DataSource = t‘这部分怎么在窗口中显示呢？
[此贴子已经被作者于2016/4/25 11:04:08编辑过]
--  作者：大红袍
--  发布时间：2016/4/25 11:06:00
--  

e.Form.Controls("Table3").Table.DataSource = DataTables("查询表1")

Dim t As Table = e.Form.Controls("Table3").Table

 

然后再根据t设置汇总模式。