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

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

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/16 17:31:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

yangwenghd

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

加好友

发短信

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

Post By：2016/8/16 18:24:00 [只看该作者]

感谢感谢可以了太感谢了，如果不相加该怎么改啊！知道麻烦你太多了，只是这个确实有点难度，

比如日期还是一样的，只是列边了，表A 订单日期列销售额列利润列表C 支出日期列支出列采购列然后表B得到年，月，销售金额，利润金额支出金额，采购金额（以月的方式复制到表B）

希望你不要生气，给你添麻烦了！！！

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/16 21:25:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

yangwenghd

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

加好友

发短信

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

Post By：2016/8/17 8:14:00 [只看该作者]

还是有点需要你再帮忙看看，谢谢感觉还是没有看懂，麻烦你了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:几个表同时统计.table

此主题相关图片如下：统计.jpg

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/8/17 8:58:00 [只看该作者]

下面把sel ect 中的空格去掉

Dim cmd As new SQLCommand

cmd.CommandText = "sel ect year(日期) as 年, month(日期) as 月, sum(销售额) AS 销售额, sum(销售成本) AS 销售成本, sum(销售支出) AS 销售支出, sum(返点支出) AS 返点支出 from (Sel ect 订单日期 as 日期,销售额, [销售成本], 0 as 销售支出, 0 as 返点支出 from {表A} union all sel ect 支出日期 as 日期, 0 as 销售额, 0 as 销售成本,销售支出 ,返点支出 from {表C}) as c group by year(日期), month(日期)"

Dim dt As DataTable = cmd.ExecuteReader

Dim Cols1() As String = {"年", "月", "销售额", "销售成本", "销售支出", "返点支出"}

Dim Cols2() As String = {"年", "月", "销额统计", "销售成本月计", "营业成本统计", "返点金额"}

For Each dr1 As DataRow In dt.Sel ect("年 is not null")

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

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

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