Office中国论坛/Access中国论坛

标题: 懒人有懒计——浅谈自动报表 [打印本页]

作者: roych 时间: 2011-11-19 18:45
标题: 懒人有懒计——浅谈自动报表
本帖最后由 roych 于 2011-11-19 18:45 编辑

有人说，懒人比较懂得享受生活，对此我深以为然。在我看来，世界上不少发明估计都是懒人整出来的。正所谓“懒人有懒计”，于是讨厌洗衣服的懒人，就发明了洗衣机；不想擦皮鞋，便有了擦鞋机；冬天懒得烧炕，暖气片从此应运而生……

说这些，是因为今天看到了新手浩天关于《如何基于一个可选字段数目的查询创建报表》的求助，里面是罗斯文数据库示例。大体看了下，主要原理是通过克隆记录集，再设置选择查询的SQL语句，从而更新查询。留意到里面有Docmd.OpenQuery语句，所以如果打开查询后再创建报表，是很简单的，只需要在单击事件中再加上这五句（大家可以试试）：

On Error Resume Next
DoCmd.DeleteObject acReport, "数据表视图"
DoCmd.RunCommand acCmdNewObjectAutoReport
DoCmd.Save acReport, "数据表视图"
DoCmd.Close acQuery, "数据表视图"

复制代码

——不知道大家有没有这样的经历：刚学做报表时，喜欢点选数据源，然后点击插入\报表，生成一个报表后再进行处理。其实，这几句正是基于这个原理。当然，如果做成两个按钮，分别打开查询和报表，那么则相对麻烦些许，于是我便把更新查询过程剥离出来，改造成子过程调用。
尽管懒人有懒计，还是不太希望大家这么“懒”，毕竟机械化或者程序化的东西，始终没有亲力亲为来得人性化。正如一些污渍洗衣机未必洗得干净一样，自动报表的缺陷在于字段过多时，控件宽度或者页面设置等等都存在问题。当然，花点时间，写上一个自适应宽度的函数过程，也不是不可以解决的。不过这些都是后话了。

[attach]47406[/attach]

作者: ycxchen 时间: 2011-11-20 15:07
初学者值得一学！

作者: tmtony 时间: 2011-11-20 16:52
谢谢分享

作者: wgh3g 时间: 2011-11-20 17:12
学习了

作者: yanwei82123300 时间: 2011-11-20 17:14
初学者值得一学！

作者: 海婷 时间: 2011-11-21 09:03
新手也来学一下!

作者: jiuduren 时间: 2011-11-21 09:30
下来学习，谢谢！

作者: zhengjialon 时间: 2011-11-21 10:23
谢谢分享

作者: greatcf 时间: 2011-12-22 13:31
感谢了哈

作者: 淡淡烟味 时间: 2012-1-27 19:55
值得学习

作者: gdjdyyj 时间: 2013-5-28 08:03
学习了!!!

作者: ljp518 时间: 2013-5-28 09:44
{:soso_e163:}

作者: 喝多野兔 时间: 2014-6-10 15:23
非常棒

作者: lfz9 时间: 2015-7-16 19:23
好好学习了

作者: a157838566 时间: 2015-7-28 14:50
adfadsf

作者: coolcoolbear 时间: 2015-8-1 19:21
谢谢分享，学到了新知识。

作者: purplerose 时间: 2016-3-18 15:03
现在才发现 ROYCH 应该当作家了，口才是一流的不过技术也是顶尖级的

作者: cxtrj 时间: 2016-3-19 11:21
下载来看看。

作者: cxtrj 时间: 2016-3-19 11:21
值得借鉴

作者: jun_hai 时间: 2016-4-14 16:13
谢谢

作者: officeifans 时间: 2017-4-3 10:14
虚心学习

作者: xlb004 时间: 2017-4-7 18:36
Eeeeeee

作者: Dtsan 时间: 2017-12-27 18:56
向各位老师学习

作者: 冚友 时间: 2018-11-6 12:04
谢谢分享

作者: 灰太郎 时间: 2021-3-1 20:31
1111111

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)