“水火相容”——分分合合的查询

a30088

打印代码如下:
DoCmd.OpenReport "应收款对账表", acViewPreview, , "客户='" & 客户 & "'"
数据源来源查询

a30088

用这样的代码执行是这样的结果,不是我要的结果
Private Sub btnprint_Click()
DoCmd.OpenReport "应收款对账表", acViewPreview, , "客户='" & 客户 & "'"
DoCmd.OpenReport "应收款对账表", acViewPreview
PrintReport "应收款对账表"
End Sub
如图:

a30088

代码执行是这样的结果,也不是我要的结果
Private Sub btnprint_Click()
DoCmd.OpenReport "应收款对账表", acViewPreview
DoCmd.OpenReport "应收款对账表", acViewPreview, , "客户='" & 客户 & "'"
PrintReport "应收款对账表"
End Sub
如图:

a30088

怎么回事,看看是不是打印代码有错?

a30088

原因何在呢?各位帮忙看下!

roych

a30088 发表于 2015-5-25 10:52
原因何在呢?各位帮忙看下!

附件已更新，供参考。

a30088

roych老师你,按你的附件做,加多字段变成如下,始终解决不了问题,请指教.
报表源据源:
SELECT Format([Forms]![应收款对账表]![开始日期],"yyyy-mm-dd") & "之前" AS 日期, 对账子表.凭证号,对账子表.类型,对账子表.客户,对账子表.品名,对账子表.颜色,对账子表.匹数,对账子表.重量,对账子表.单价,对账子表.备注,sum([金额]) as 金额1
FROM 对账子表
GROUP BY Format([Forms]![应收款对账表]![开始日期],"yyyy-mm-dd") & "之前",对账子表.日期,对账子表.凭证号,对账子表.类型,对账子表.客户,对账子表.品名,对账子表.颜色,对账子表.匹数,对账子表.重量,对账子表.单价,对账子表.备注,对账子表.金额
HAVING (((对账子表.客户)=[Forms]![应收款对账表]![客户]));
UNION ALL SELECT  format(日期,"YYYY-MM-DD") as 销售日期, 凭证号,类型,客户, 品名,颜色,匹数,重量,单价,备注,金额
FROM 对账子表
WHERE 客户 like iif(isnull([Forms]![应收款对账表]![客户]),"*",[Forms]![应收款对账表]![客户]) and 日期>[Forms]![应收款对账表]![开始日期] and 对账子表.日期<=[Forms]![应收款对账表]![结束日期];

a30088

roych老师帮忙看看

roych

a30088 发表于 2015-5-26 14:52
roych老师你,按你的附件做,加多字段变成如下,始终解决不了问题,请指教.
报表源据源:
SELECT Format([Form ...

第一个问题：
个人觉得，如果你要把1月4号之前的合起来，应该将除了金额以外的字段全部设置为Null的。因为，全部合起来，必然会有不同的凭证号、不同的布匹等等，那么分组合计自然就多几条记录了。
当然，如果非要保留这些字段，又想不显示重复日期的话，只能通过设置“隐藏重复控件”处理了。处理的结果是：第一行有“2015-01-04之前”，后面3行为空值。
第二个问题：我猜，应该是数值格式问题（请检查日期字段或者计算字段是否文本格式，建议对比下我这个例子的日期字段和销量字段）。你可以单独把union all前面那部分拿出来，看看计算结果。

tzh1600

利用查询有很多好处，可以一步步的来，不需要一步就到位
像上面的例子，可以分别做出开始日期前，开始日期到结束日期，结束日期后的查询，再根据需要进行各种联合