红袍老师，
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编辑过]
加好友 
发短信
Post By：2016/4/25 11:03:00 [只看该作者]
