两表之间的汇总 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两表之间的汇总

共有12674人关注过本帖树形打印复制链接主题：两表之间的汇总

caoxy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：299 积分：1939 威望：0 精华：0 注册：2011/3/9 18:17:00

两表之间的汇总 发帖心情

Post By：2011/3/22 13:59:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:外发材料.table

尊敬的师傅你好：

有两张表：一个是订单表，一个加工表（订单号是按订单表订单号）

要求自动汇总、统计，并些要对两表增加的内容，统计表自动刷新

1、同一订单号汇总订单数，加工数

统计的格式：

订单号订单数加工数结存数

。。。
。。。

。。。

合计

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/3/22 15:05:00 [只看该作者]

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("订单号", Gettype(String), 32)
dtb.AddDef("订单数", Gettype(Integer), 32)
dtb.AddDef("加工数", Gettype(Integer))
dtb.AddDef("结存数", Gettype(Double),"订单数 - 加工数")
dtb.Build()
Dim lst As List(of String) = DataTables("导线订单").GetUniqueValues("","订单号")
Dim dr As DataRow
For Each dd As String In lst
    dr = DataTables("统计").AddNew()
    dr("订单号") = dd
    dr("订单数") = DataTables("导线订单").Compute("Sum(订单数)","订单号 = '" & dd & "'")
    dr("加工数") = DataTables("订单加工").Compute("Sum(加工数)","订单号 = '" & dd & "'")
Next