把三个表内容自动统计到一个表内 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 把三个表内容自动统计到一个表内

共有1868人关注过本帖树形打印复制链接主题：把三个表内容自动统计到一个表内

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

把三个表内容自动统计到一个表内 发帖心情

Post By：2017/7/7 13:11:00 [只看该作者]

HI 大家好！

请问把三个表内容自动安年份和产品统计出每一个月进仓和出仓数量和金额，每月剩余多少数量和金额，当前月份剩余多少数量和金额。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:物品出入记录表.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/7 14:20:00 [只看该作者]

参考

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/7 14:35:00 [只看该作者]

参考代码

Dim dt As DataTable = DataTables("总表")
Dim dt1 As DataTable = DataTables("进仓表")
Dim dt2 As DataTable = DataTables("出仓表")
Dim dt3 As DataTable = DataTables("材料表")
Dim ys As String() = {"2017"}
For Each y As String In ys
    For Each dr As DataRow In dt3.Select("")
        Dim ndr As DataRow = dt.AddNew
        ndr("年份") = new Date(y, 1, 1)
        ndr("编号") = dr("编号")
        ndr("材料名称") = dr("材料名称")
        ndr("单位") = dr("单位")
        Dim filter As String = "编号 = '" & dr("编号") & "'"
        ndr("结存_数量") = dt1.Compute("sum(进仓数量)", filter) - dt2.Compute("sum(出仓数量)", filter)
        ndr("结存_金额") = dt1.Compute("sum(进仓金额)", filter) - dt2.Compute("sum(出仓金额)", filter)
        Dim d As Date = new Date(y, 1, 1)
        Dim filter1 = "编号 = '" & dr("编号") & "' and 进仓日期 >= #" & d & "# And 进仓日期 < #" & d.AddMonths(1) & "#"
        Dim filter2 = "编号 = '" & dr("编号") & "' and 出仓日期 >= #" & d & "# And 出仓日期 < #" & d.AddMonths(1) & "#"
        ndr("一月_进仓_数量") = dt1.Compute("sum(进仓数量)", filter1)
        ndr("一月_进仓_金额") = dt1.Compute("sum(进仓金额)", filter1)
    Next
Next

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/7/14 15:25:00 [只看该作者]

请问如何添加两列剩余多少数量和剩余多少金额计算列？

Dim b As New CrossTableBuilder("统计表1",DataTables("进仓表"))

Dim dt1 As fxDataSource

b.HGroups.AddDef("编号") '添加客户列用于水平分组

b.VGroups.AddDef("进仓日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组

b.VGroups.AddDef("进仓日期","{0}月") '添加日期列用于垂直分组,按月分组

b.Totals.AddDef("进仓数量") '添加数量列用于统计

b.Totals.AddDef("进仓金额") '添加数量列用于统计

b.VerticalTotal= True '垂直汇总

b.HorizontalTotal = True '水平汇总

dt1 = b.BuildDataSource()

Dim a As New CrossTableBuilder("统计表2",DataTables("出仓表"))

Dim dt2 As fxDataSource

a.HGroups.AddDef("编号") '添加客户列用于水平分组

a.VGroups.AddDef("出仓日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组

a.VGroups.AddDef("出仓日期","{0}月") '添加日期列用于垂直分组,按月分组

a.Totals.AddDef("出仓数量") '添加数量列用于统计

a.Totals.AddDef("出仓金额") '添加数量列用于统计

a.VerticalTotal= True '垂直汇总

a.HorizontalTotal = True '水平汇总

dt2 = a.BuildDataSource()

dt1.Combine("编号",dt2,"编号")

Dim t As Table = Forms("统计表").controls("Table1").Table

t.DataSource = dt1 '将统计结果绑定到Table

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/14 16:18:00 [只看该作者]

不行，无法动态添加那些列。添加后控制更麻烦。

还不如用你原来的代码，看3楼方法。

binabc2004

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

加好友

发短信

等级：童狐帖子：200 积分：1592 威望：0 精华：0 注册：2016/4/1 12:21:00

Post By：2017/7/14 16:51:00 [只看该作者]

三楼代码只能显视2017年一月份数据，不能显视2017年之后数据,结存数量就可以看到实际数量，每一个月细节就看不到。

此主题相关图片如下：qq截图20170714165049.jpg

此主题相关图片如下：qq截图20170714165031.jpg

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/7/14 17:21:00 [只看该作者]

看懂代码，改动.

红色代码是变动的，复制多段，简单修改，统计和赋值，即可。

Dim dt As DataTable = DataTables("总表")
Dim dt1 As DataTable = DataTables("进仓表")
Dim dt2 As DataTable = DataTables("出仓表")
Dim dt3 As DataTable = DataTables("材料表")
Dim ys As String() = {"2017","2018"}
For Each y As String In ys
    For Each dr As DataRow In dt3.Select("")
        Dim ndr As DataRow = dt.AddNew
        ndr("年份") = new Date(y, 1, 1)
        ndr("编号") = dr("编号")
        ndr("材料名称") = dr("材料名称")
        ndr("单位") = dr("单位")
        Dim filter As String = "编号 = '" & dr("编号") & "'"
        ndr("结存_数量") = dt1.Compute("sum(进仓数量)", filter) - dt2.Compute("sum(出仓数量)", filter)
        ndr("结存_金额") = dt1.Compute("sum(进仓金额)", filter) - dt2.Compute("sum(出仓金额)", filter)
        Dim d As Date = new Date(y, 1, 1)
        Dim filter1 = "编号 = '" & dr("编号") & "' and 进仓日期 >= #" & d & "# And 进仓日期 < #" & d.AddMonths(1) & "#"
        Dim filter2 = "编号 = '" & dr("编号") & "' and 出仓日期 >= #" & d & "# And 出仓日期 < #" & d.AddMonths(1) & "#"
        ndr("一月_进仓_数量") = dt1.Compute("sum(进仓数量)", filter1)
        ndr("一月_进仓_金额") = dt1.Compute("sum(进仓金额)", filter1)
    Next
Next

下一主题 >> << 上一主题

主题：把三个表内容自动统计到一个表内