【新手入門】之二十二：分組行號(hào)

roych

一直覺(jué)得，分組行號(hào)應(yīng)該不算什么問(wèn)題，應(yīng)該歸入新手入門系列。通�？梢杂袔讉�(gè)方式來(lái)處理：1、Dcount，優(yōu)點(diǎn)：易于理解。缺點(diǎn)：效率低。具體見(jiàn)附件
2、ADO，優(yōu)點(diǎn)：效率高。缺點(diǎn)：需要熟悉VBA編程。沒(méi)啥好說(shuō)的，直接按下F5運(yùn)行即可。又或者在窗體按鈕的點(diǎn)擊事件中call updateRowID()
3、報(bào)表：優(yōu)點(diǎn)：易于理解。缺點(diǎn)：需要熟悉布局。具體見(jiàn)附件。

然而每隔一段時(shí)間，總有人會(huì)問(wèn)如何處理分組行號(hào)的問(wèn)題。所以這次干脆把這幾種方式都列出來(lái)好了。

1. Sub updateRowID()
   
2.     Dim rst As New ADODB.Recordset
   
3.     Dim strGroup As String
   
4.     Dim lngPosition As Long
   
5.    
   
6.     rst.Open "select * from tblTest", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7.     '初始化
   
8.     lngPosition = 0
   
9.     strGroup = rst("分組")
   
10.    
    
11.     Do Until rst.EOF
    
12.         If rst("分組") = strGroup Then
    
13.             lngPosition = lngPosition + 1
    
14.             rst("行號(hào)") = lngPosition
    
15.         Else
    
16.             rst("行號(hào)") = 1
    
17.             lngPosition = 1
    
18.             strGroup = rst("分組")
    
19.         End If
    
20.         rst.Update
    
21.         rst.MoveNext
    
22.     Loop
    
23.    
    
24.    rst.Close
    
25.    Set rst = Nothing
    
26. End Sub

復(fù)制代碼

【新手入門】之一：If分支語(yǔ)句
【新手入門】之二：分支語(yǔ)句總結(jié)
【新手入門】之三：循環(huán)語(yǔ)句For
【新手入門】之四：循環(huán)語(yǔ)句Do和死循環(huán)
【新手入門】之五：公共變量與傳址過(guò)程、傳值過(guò)程
【新手入門】之六：“悲歡離合總無(wú)情”——淺談Split和Join
【新手入門】之七：嵌套與并列——再談If流程問(wèn)題
【新手入門】之八：“連就連”——淺談“&”和“+”連接符的區(qū)別
【新手入門】之九：從百錢百雞談起——淺談“規(guī)劃求解”兼答lingjiang問(wèn)
【新手入門】之十：書(shū)到用時(shí)方恨少——自定義菜單（Access 2003）的制作
【新手入門】之十一：淺談ADO之序言
【新手入門】之十二：淺談ADO之Connection
【新手入門】之十三：淺談ADO之Conmmand（上）
【新手入門】之十四：淺談ADO之Command（下）
【新手入門】之十五：淺談ADO之Recordset（上）
【新手入門】之十六：淺談ADO之Recordset（下）
【新手入門】之十七：淺談列表框的使用
【新手入門】之十八：雙擊列表框修改數(shù)據(jù)
【新手入門】之十九：從“書(shū)與女友恕不外借”談起——淺談“Bookmark”的使用
【新手入門】之二十：“書(shū)與書(shū)簽”——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)階】之十一：“庖丁解�！焙汀凹o(jì)昌學(xué)射”——淺談表格式文本數(shù)據(jù)的導(dǎo)入
【新手進(jìn)階】之十二：從四腳騰空的奔馬談起——原來(lái)界面可以這樣設(shè)計(jì)
【新手進(jìn)階】之十三：Outlook風(fēng)格導(dǎo)航界面
【新手進(jìn)階】之十四：倉(cāng)庫(kù)管理系統(tǒng)

tmtony

這個(gè)有實(shí)用價(jià)值！

wuwu20022

學(xué)習(xí)