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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计的数据复制到另外一个表

共有5038人关注过本帖树形打印复制链接主题：统计的数据复制到另外一个表

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

统计的数据复制到另外一个表 发帖心情

Post By：2016/8/7 14:23:00 [显示全部帖子]

可以把一个表的数据统计到另外一个表里面吗。比如表A 有日期，然后销售额A、销售成本A、运营成本A、净利润A。

然后点击一个按钮把表A的日期些别统计到表B 年列月列销售额B、销售成本B、运营成本B、净利润B。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:汇总复制.table

[此贴子已经被作者于2016/8/7 14:35:10编辑过]

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/10 22:18:00 [显示全部帖子]

问问我怎么在前面得到年和月份啊

Dim f As New Filler

f.SourceTable = DataTables("订单附表") '指定数据来源

f.SourceCols = "订单核算_合计,订单核算_采购合计,订单核算_单项成本" '指定数据来源列

f.DataTable = DataTables("经营汇总") '指定数据接收表

f.DataCols = "销售额,增投资金,经营成本" '指定数据接收列

f.Fill() '填充数据

感谢感谢

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/10 22:44:00 [显示全部帖子]

可以是统计表1是已经已建立好的吗？然后只是表A的日期，然后转换成年月份，然后在把表A 每个月份的和复制到统计表1 ，我试试了很多次，就是不知道那里不对，我平时只有晚上才能开电脑，白天都在上班，这么晚还麻烦你们真是给你们填麻烦了。

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/10 22:56:00 [显示全部帖子]

知道谢谢你，自动生成的表格你帮我做过，我会做了，只是把表A 根据日期统计好在复制到已经建立好的统计表1还不会.

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/10 23:16:00 [显示全部帖子]

能问问表B在里面是什么意思啊

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/11 0:08:00 [显示全部帖子]

在这段代码里面是什么意思啊

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/11 9:43:00 [显示全部帖子]

非要生成一个表才能复制到另外一个表吗？不能点击直接统计后收入到表B吗？

如果需要把表C的数据一起合计过来应该怎么添加啊，比如表B的内容得出表A 的销售额列，成本列，经营成本列和表C利润列，支出列日期为月的统计合计。这个应该怎么做啊，感谢感谢

[此贴子已经被作者于2016/8/11 10:00:37编辑过]

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/11 10:04:00 [显示全部帖子]

非要生成一个表才能复制到另外一个表吗？不能点击直接统计后收入到表B吗？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:汇总复制.table

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/11 10:26:00 [显示全部帖子]

谢谢你这个我会了，我就是问问我可以不通过临时生成表把两个表的列按照月统计到另外一个已经建立好的表里面吗？如果不能我就去帮助找其他的方法？谢谢

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2710 积分：18088 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2016/8/11 17:34:00 [显示全部帖子]

帮忙看看是那个错了啊，还是不能把两个表的列按月份直接统计到表B一起，

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Totals.AddDef("销售额")

g.Totals.AddDef("销售成本")

g.Totals.AddDef("营业成本")

g.Totals.AddDef("净利润")

g.filter = "日期 is not null"

g.Build()

Dim f As New GroupTableBuilder("统计表1", DataTables("表C"))

f.Groups.AddDef("日期", DateGroupEnum.Year, "年")

f.Groups.AddDef("日期", "月")

f.Totals.AddDef("销售额三")

f.Totals.AddDef("销售成本三")

f.Totals.AddDef("营业成本三")

f.Totals.AddDef("净利润三")

f.filter = "日期 is not null"

f.Build()

Dim Cols1() As String = {"年", "月", "销售额", "销售成本", "营业成本", "净利润"}

Dim Cols2() As String = {"年", "月", "销售额汇总", "销售成本汇总", "营业成本汇总", "净利润汇总"}

For Each dr1 As DataRow In DataTables("统计表1").Select("")

Dim dr2 As DataRow = DataTables("表B").AddNew()

For i As Integer = 0 To Cols1.Length -1

dr2(Cols2(i)) = dr1(Cols1(i))

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

总数 25 1 2 3 下一页

主题：统计的数据复制到另外一个表