主题：跨表自动取汇总数

1、不是直接跨表统计就可以了？

 

http://www.foxtable.com/webhelp/scr/1454.htm

 

http://www.foxtable.com/webhelp/scr/1472.htm

 

2、直接生成表格也可以，如

 

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

 

Tables("统计1").DataSource = dt1 '将统计结果绑定到Table

 

改成

 

dt1.show("统计1")

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("采购明细"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("项目分类")
bd1.Groups.AddDef("材料供应商")
bd1.Totals.AddDef("购进金额")
dt1 = bd1.BuildDataSource()
Dim bd2 As New GroupTableBuilder("统计表2",DataTables("付款明细"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("项目分类")
bd2.Groups.AddDef("材料供应商")
bd2.Totals.AddDef("付款金额")
dt2 = bd2.BuildDataSource()
Dim arr() As String = {"项目分类","材料供应商"}
dt1.Combine(arr,dt2,arr)
dt1.show("统计表") '将统计结果绑定到Table
Dim t As Table = Tables("统计表")
With t.DataTable.DataCols  '用表达式列计算库存数据
    .Add("未付款金额",Gettype(Integer), "IsNull([购进金额],0) - ISNULL([付款金额],0)")
End With
With Tables("统计表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("项目分类")
    .MergeCols.Add("材料供应商")
    .MergeSort = "项目分类,材料供应商"
    .AllowMerge = True
End With

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 = "*"
g.TotalOn = "购进金额,付款金额,未付款金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()
MainTable = t

直接执行上面的代码，就可以啊。有什么问题啊。

 

参考 http://www.foxtable.com/webhelp/scr/1775.htm

 

 

参考 http://www.foxtable.com/webhelp/scr/1659.htm