懶人有懶計——淺談自動報表

roych

       有人說，懶人比較懂得享受生活，對此我深以為然。在我看來，世界上不少發(fā)明估計都是懶人整出來的。正所謂“懶人有懶計”，于是討厭洗衣服的懶人，就發(fā)明了洗衣機(jī)；不想擦皮鞋，便有了擦鞋機(jī)；冬天懶得燒炕，暖氣片從此應(yīng)運而生……

       說這些，是因為今天看到了新手浩天關(guān)于《如何基于一個可選字段數(shù)目的查詢創(chuàng)建報表》的求助，里面是羅斯文數(shù)據(jù)庫示例。大體看了下，主要原理是通過克隆記錄集，再設(shè)置選擇查詢的SQL語句，從而更新查詢。留意到里面有Docmd.OpenQuery語句，所以如果打開查詢后再創(chuàng)建報表，是很簡單的，只需要在單擊事件中再加上這五句（大家可以試試）：

1. 
   
2.     On Error Resume Next
   
3.     DoCmd.DeleteObject acReport, "數(shù)據(jù)表視圖"
   
4.     DoCmd.RunCommand acCmdNewObjectAutoReport
   
5.     DoCmd.Save acReport, "數(shù)據(jù)表視圖"
   
6.     DoCmd.Close acQuery, "數(shù)據(jù)表視圖"

復(fù)制代碼

——不知道大家有沒有這樣的經(jīng)歷：剛學(xué)做報表時，喜歡點選數(shù)據(jù)源，然后點擊插入\報表，生成一個報表后再進(jìn)行處理。 其實，這幾句正是基于這個原理。當(dāng)然，如果做成兩個按鈕，分別打開查詢和報表，那么則相對麻煩些許，于是我便把更新查詢過程剝離出來，改造成子過程調(diào)用。
       盡管懶人有懶計，還是不太希望大家這么“懶”，畢竟機(jī)械化或者程序化的東西，始終沒有親力親為來得人性化。正如一些污漬洗衣機(jī)未必洗得干凈一樣，自動報表的缺陷在于字段過多時，控件寬度或者頁面設(shè)置等等都存在問題。當(dāng)然，花點時間，寫上一個自適應(yīng)寬度的函數(shù)過程，也不是不可以解決的。不過這些都是后話了。

ycxchen

初學(xué)者值得一學(xué)！

tmtony

謝謝分享

wgh3g

學(xué)習(xí)了

yanwei82123300

初學(xué)者值得一學(xué)！

海婷

新手也來學(xué)一下!

jiuduren

下來學(xué)習(xí)，謝謝！

zhengjialon

謝謝分享

greatcf

感謝了哈

淡淡煙味

值得學(xué)習(xí)