Office中國(guó)論壇/Access中國(guó)論壇

標(biāo)題: 【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集 [打印本頁]
作者: roych    時(shí)間: 2012-2-11 02:22
標(biāo)題: 【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集
      說到中國(guó)古代十大酷刑，想來把肉一塊塊割下來，直至犯人死去的“凌遲”應(yīng)該是名列第一的了。據(jù)聞劊子手行刑時(shí)往往也表示“鴨梨很大”，因?yàn)榱柽t是需要在三天內(nèi)割若干次。如果犯人提前掛了或沒達(dá)到規(guī)定的刀數(shù)，那對(duì)不起，下一個(gè)就是你——被執(zhí)行了。
       “凌遲”比較血腥，所以俺不打算多說，有興趣的版友們可以自行研究下古代刑法。這里只講一個(gè)跟“凌遲”類似的例子。

       這個(gè)例子說是“新手進(jìn)階”，是因?yàn)楸仨殞?duì)記錄集稍有了解才方便理解的。——希望沒有打擊到大多數(shù)新手。
       這是在EH（ExcelHome）的一個(gè)版友的求助，先是貼一段代碼上來，說要把記錄集導(dǎo)出到文本。Roy看了半天，沒怎么領(lǐng)會(huì)，便說用TransferText宏即可。后來ta又說非要逐條記錄導(dǎo)出�！@可不是將好好的一個(gè)記錄集“凌遲處死”了嘛，哪還有王法啊。

       其實(shí)之前ta的代碼也算是不錯(cuò)的了。Roy只是一時(shí)沒理解而已。不過，既然夸下口說ta的代碼復(fù)雜，那么Roy也只能用更簡(jiǎn)單的代碼來實(shí)現(xiàn)了。由于需要逐條導(dǎo)出，這時(shí)候TransferText是有些麻煩的了（當(dāng)然，改成動(dòng)態(tài)條件也不是不可以的），后來想了想，似乎GetRows可以實(shí)現(xiàn)，便寫了這個(gè)例子。

       GetRows主要是把記錄集轉(zhuǎn)換為一個(gè)二維內(nèi)存數(shù)組，通過數(shù)組數(shù)據(jù)的輸出，從而達(dá)到逐條導(dǎo)出的目的。而作為接收方，我們需要?jiǎng)?chuàng)建文本文件用來寫入。至此，思路完全清晰，下面就是寫入的方法，據(jù)我所知有Open方法、OpenText和OpenTextfile方法，至于有沒有第4種方法，沒深入研究：
       這里的例子分別采用了第1種（原代碼）和第3種方法（Roy），具體看這個(gè)“血淋淋”的附件吧（里面有簡(jiǎn)要的注釋）。{:soso_e112:}
     [attach]48296[/attach]
【新手入門】之一：If分支語句
【新手入門】之二：分支語句總結(jié)
【新手入門】之三：循環(huán)語句For
【新手入門】之四：循環(huán)語句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過程、傳值過程
【新手入門】之六：“悲歡離合總無情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問
【新手入門】之十：書到用時(shí)方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書與書簽”——bookmark屬性答疑
【新手入門】之二十一：記錄集的“凌遲”——逐條導(dǎo)出記錄集
【新手入門】之二十二：分組行號(hào)
【新手入門】之二十三：“富則妻妾成群”——淺談一對(duì)多錄入數(shù)據(jù)

【新手進(jìn)階】之一：基礎(chǔ)算法（一）
【新手進(jìn)階】之二：基礎(chǔ)算法（二）
【新手進(jìn)階】之三：基礎(chǔ)算法（三）
【新手進(jìn)階】之四：基礎(chǔ)算法（四）
【新手進(jìn)階】之五：排序搜索（一）
【新手進(jìn)階】之六：排序搜索（二）
【新手進(jìn)階】之七：遞歸算法
【新手進(jìn)階】之八：冒泡排序
【新手進(jìn)階】之九：淺談不綁定數(shù)據(jù)源操作記錄
【新手進(jìn)階】之十：工作日的計(jì)算
【新手進(jìn)階】之十一：“庖丁解牛”和“紀(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進(jìn)階】之十二：從四腳騰空的奔馬談起——原來界面可以這樣設(shè)計(jì)
【新手進(jìn)階】之十三：Outlook風(fēng)格導(dǎo)航界面
【新手進(jìn)階】之十四：倉庫管理系統(tǒng)

作者: ycxchen    時(shí)間: 2012-2-11 09:09
版主的大作肯定要學(xué)習(xí)！
作者: jinzhanxi    時(shí)間: 2012-2-11 10:24
受教了！
作者: tmtony    時(shí)間: 2012-2-11 10:46
謝謝分享！
作者: Grant    時(shí)間: 2012-2-11 11:56
辛苦了,謝謝分享 {:soso_e100:}
作者: JosephTan    時(shí)間: 2012-2-11 18:23
那個(gè)帖子的地址?我看看是什麼
作者: ysh5858    時(shí)間: 2012-2-11 22:44
謝謝分享！
作者: roych    時(shí)間: 2012-2-11 23:41
本帖最后由 roych 于 2012-2-11 23:43 編輯
JosephTan 發(fā)表于 2012-2-11 18:23
那個(gè)帖子的地址?我看看是什麼

原帖是要版主幫忙的，EH里的Access版塊更多的是精于SQL Server，所以我就客串一下了。
http://club.excelhome.net/forum. ... p;page=1#pid5636456
作者: SRONE    時(shí)間: 2012-2-12 01:36
謝謝分享！
作者: Bonny_新樂    時(shí)間: 2015-8-3 22:01
學(xué)習(xí)了。
作者: 522650696    時(shí)間: 2016-4-26 21:39

謝謝分享！
作者: Superleistung    時(shí)間: 2016-5-19 16:15
拜讀一下code
作者: wuwu200222    時(shí)間: 2023-3-1 10:11
學(xué)習(xí)



歡迎光臨 Office中國(guó)論壇/Access中國(guó)論壇 (http://m.mzhfr.cn/) Powered by Discuz! X3.3