还是汇总的问题！！！

zhaogang1960 · 发表于 2011-8-18 22:59

liuyuyu880210 发表于 2011-8-18 22:50
赵老师提示错误
蓝桥老师的代码我看着是云里雾里，看着很好就是不知所以然，很想学习，您的代码还能 ...

我这里没有提示错误，请测试附件：

销售.rar (80.95 KB, 下载次数: 32)

liuyuyu880210 · 发表于 2011-8-18 23:18

本帖最后由 liuyuyu880210 于 2011-8-18 23:20 编辑

zhaogang1960 发表于 2011-8-18 22:59
我这里没有提示错误，请测试附件：

您的附件没问题，可是我复制代码放在我原表就显示类型不匹配Cells(i, 3).CopyFromRecordset cnn.Execute(SQL)，在后面运行代码提示自动化错误，是不是原表还需要引用什么呢？
您的附件能不能做成2行合计自动插入，余额自动计算呢？

zhaogang1960 · 发表于 2011-8-18 23:22

liuyuyu880210 发表于 2011-8-18 23:18
您的附件没问题，可是我复制代码放在我原表就显示类型不匹配Cells(i, 3).CopyFromRecordset cnn.Execut ...

什么也不需要引用
请把出错的附件发上来分析一下

liuyuyu880210 · 发表于 2011-8-18 23:27

错误附件！！！！！！！

zhaogang1960 · 发表于 2011-8-18 23:49

liuyuyu880210 发表于 2011-8-18 23:27
错误附件！！！！！！！

原来月份是单元格格式化来的“月”字，只需要修改一句：
' SQL = "select format(月份,'#月') as 月份,sum(数量) as 数量,sum(金额) as 金额 from " & mytable & " where 产品名称='" & [b2] & "' and 月份 between " & arr(m) & " group by 月份"
SQL = "select 月份,sum(数量) as 数量,sum(金额) as 金额 from " & mytable & " where 产品名称='" & [b2] & "' and 月份 between " & arr(m) & " group by 月份"

销售错误.rar (83.41 KB, 下载次数: 38)

liuyuyu880210 · 发表于 2011-8-18 23:53

厉害真厉害啊、赵老师想求您帮我做个编制代码的录像可以吗？我也学学自己编写代码。

liuyuyu880210 · 发表于 2011-8-19 00:01

能不能做成2行合计自动插入，余额自动计算呢？

summerrain828 · 发表于 2011-8-19 00:05

方法真的是太多了!!

蓝桥玄霜 · 发表于 2011-8-19 07:58

为避免累加数据，可在代码前面加入
[c6:d8]=""
[c11:d13]=""
[c16:d18]=""
[c21:d23]=""
加变量aa="产品10"
rs.Filter = "产品名称='" & aa & "'"

cqr123 · 发表于 2011-8-19 10:40

学习了一下，现在的汇总比较厉害的啊

		自动登录	找回密码
密码			免费注册

[求助] 还是汇总的问题！！！