主题：跨表自动取汇总数

专家：

　　A　B　C　二表，建A表为项目基本信息表：有“项目名称”，列名有：项目名称、采购金额、已付款、未付款

　　　　　　　　　　B表是采购明细登记表：列名有：项目名称，材料供应商，采购金额

　　　　　　　　　　C表是付款明细登记表：列名有：项目名称，材料供应商，付款金额，付款日期　

　　　现在要做的是跨表取数碰到难题，要解决问题是建立一个表，能反应各个项目内各材料供应商的采购金额、已付款金额二项的汇总数，当然未付款金额可以用公式不说了，要跨表取汇总数，不知道代码如何写？

　　

 

　　　　　

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("成本fa piao录入"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("开piao方名称") '根据型号分组
'bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计
bd1.Totals.AddDef("价税合计金额","结算金额") '对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("付款明细表"))
Dim dt2  As fxDataSource
bd2.Groups.AddDef("收款单位") '根据型号分组
bd2.Totals.AddDef("付款金额","已付款") '对金额进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("开piao方名称",dt2,"收款单位") '将销售统计数据组合到进货统计数据

Tables("统计1").DataSource = dt1 '将统计结果绑定到Table
With DataTables("统计1").DataCols  '用表达式列计算库存数据
    .Add("未付款金额",Gettype(Integer), "IsNull([结算金额],0) - ISNULL([已付款],0) ]")
    '.Add("未付款金额",Gettype(Double), "[库存_数量] /[进货_数量] * [进货_金额]")
End With

 

 

提示，不存在名为“统计1”table

老师还是不成功，这样吧，我上传个项目实例好了，您帮我看看，这是我整个开发的难点，请帮我一下。

要求我写在附件中的EXCEL表中，想利用二张表，做一个按钮或者目录树节点菜单，按一下就能出现我要求的实时汇总表。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目祝.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:要求说明.rar

老师还是不成功，这样吧，我上传个项目实例好了，您帮我看看，这是我整个开发的难点，请帮我一下。

要求我写在附件中的EXCEL表中，想利用二张表，做一个菜单按钮或者目录树节点菜单，点一下就能出现我要求的实时汇总表。

老师还是不成功，这样吧，我上传个项目实例好了，您帮我看看，这是我整个开发的难点，请帮我一下。

要求我写在附件中的EXCEL表中，想利用二张表，做一个按钮或者目录树节点菜单，按一下就能出现我要求的实时汇总表。

老师，还是不行，我另做一份项目上传，想达到我EXCEL表内说明的要求，从菜单生成一个查询表格，请教正确代码，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目祝.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:要求说明.rar

我的回帖为什么看不到呢

急死了，卡住了，系统做到这里，汇总表出了问题，搞不定，我回了几个贴子为什么会看不到呢，是不是我发贴发了，再发一次。

我是要从二个表中汇总数据，生成一个汇总统计表，搞个菜单按钮或者目录树节点，点一下就能出来表。

刚才系统提示我上传附件错误，老师是不是能收到？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:附件.rar

老师，我这什么看不到我上传的贴子，求代码，自己搞了二天没搞定，想在菜单做个按钮或者目录树节点，能生成我所要的查询汇总表

虽然代码有些还不知道所以然，但一次成功，待我慢慢体会，谢谢老师指导