Foxtable(狐表)用户栏目专家坐堂 → [求助]多表统计汇总


  共有2315人关注过本帖树形打印复制链接

主题:[求助]多表统计汇总

帅哥哟,离线,有人找我吗?
lingfeng3918
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:1563 威望:0 精华:0 注册:2016/5/11 8:50:00
[求助]多表统计汇总  发帖心情 Post By:2016/9/27 17:32:00 [只看该作者]

看了帮助文件中有关多表统计的说明,将代码修改后代入到项目中出图片点击可在新窗口打开查看现附件所示的情形.
但这不是我需要的结果.


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160927172955.png
图片点击可在新窗口打开查看
需求:统计结果根据姓名列示,统计列只有"get"和"cob''列
求大神指点.


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/27 17:46:00 [只看该作者]

上传项目测试

 回到顶部
帅哥哟,离线,有人找我吗?
lingfeng3918
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:1563 威望:0 精华:0 注册:2016/5/11 8:50:00
  发帖心情 Post By:2016/9/28 8:30:00 [只看该作者]

我理了下思路:
1.项目中含有很多的表,而这些表中有许多格式完全相同.(不是不想做到同一个表中,只是每个表的数据表达式,引用,代码等均不相同)
2.我需要的统计结果实际上就是把这些格式一致的表中的数据全部"复制"到一个全新的"表"中,然后再对这个新的表进行一次分组统计即可.
3.分组统计的操作和代码已经掌握,但仍不懂如何运用代码将多个格式相同的表中的数据同时复制到一个新的表中.

请老师指点如何运用代码将多个格式相同的表中的数据同时复制到一个新的表中

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/28 8:50:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lingfeng3918
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:1563 威望:0 精华:0 注册:2016/5/11 8:50:00
  发帖心情 Post By:2016/9/28 14:19:00 [只看该作者]

根据帮助文件的代码,简单做了修改,执行后发现目标表中没有数据

代码如下:
Dim f As New Filler
f.SourceTable = DataTables("表A") 
f.SourceCols = "标识,销售主管,合同号"
f.DataTable = DataTables("统计表") 
f.DataCols = "标识,销售主管,合同号"
f.Fill()
MainTable=Tables("统计表")

表A是有数据的



 回到顶部
帅哥哟,离线,有人找我吗?
lingfeng3918
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:1563 威望:0 精华:0 注册:2016/5/11 8:50:00
  发帖心情 Post By:2016/9/28 14:34:00 [只看该作者]

是不是目标表必须是一个临时表?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/9/28 15:11:00 [只看该作者]

临时表和数据表都可以,测试没有问题。检查表名和列名是否正确

上例子说明

 回到顶部
帅哥哟,离线,有人找我吗?
lingfeng3918
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:1563 威望:0 精华:0 注册:2016/5/11 8:50:00
  发帖心情 Post By:2016/9/28 15:20:00 [只看该作者]

问题已经解决,感谢!

 回到顶部