【新手入门】之二十二：分组行号

roych

一直觉得，分组行号应该不算什么问题，应该归入新手入门系列。通常可以有几个方式来处理：1、Dcount，优点：易于理解。缺点：效率低。具体见附件
2、ADO，优点：效率高。缺点：需要熟悉VBA编程。没啥好说的，直接按下F5运行即可。又或者在窗体按钮的点击事件中call updateRowID()
3、报表：优点：易于理解。缺点：需要熟悉布局。具体见附件。

然而每隔一段时间，总有人会问如何处理分组行号的问题。所以这次干脆把这几种方式都列出来好了。

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("行号") = lngPosition
    
15.         Else
    
16.             rst("行号") = 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

复制代码

【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集
【新手入门】之二十二：分组行号
【新手入门】之二十三：“富则妻妾成群”——浅谈一对多录入数据
【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

tmtony

这个有实用价值！

wuwu20022

学习