Office中国论坛/Access中国论坛
标题:
【新手入门】之二十二:分组行号
[打印本页]
作者:
roych
时间:
2019-3-1 11:32
标题:
【新手入门】之二十二:分组行号
一直觉得,分组行号应该不算什么问题,应该归入新手入门系列。通常可以有几个方式来处理:1、Dcount,优点:易于理解。缺点:效率低。具体见附件
2、ADO,优点:效率高。缺点:需要熟悉VBA编程。没啥好说的,直接按下F5运行即可。又或者在窗体按钮的点击事件中call
updateRowID()
3、报表:优点:易于理解。缺点:需要熟悉布局。具体见附件。
然而每隔一段时间,总有人会问如何处理分组行号的问题。所以这次干脆把这几种方式都列出来好了。
Sub updateRowID()
Dim rst As New ADODB.Recordset
Dim strGroup As String
Dim lngPosition As Long
rst.Open "select * from tblTest", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'初始化
lngPosition = 0
strGroup = rst("分组")
Do Until rst.EOF
If rst("分组") = strGroup Then
lngPosition = lngPosition + 1
rst("行号") = lngPosition
Else
rst("行号") = 1
lngPosition = 1
strGroup = rst("分组")
End If
rst.Update
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
复制代码
[attach]63257[/attach]
【新手入门】之一:If分支语句
【新手入门】之二:分支语句总结
【新手入门】之三:循环语句For
【新手入门】之四:循环语句Do和死循环
【新手入门】之五:公共变量与传址过程、传值过程
【新手入门】之六:“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七:嵌套与并列——再谈If流程问题
【新手入门】之八:“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九:从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十:书到用时方恨少——自定义菜单(Access 2003)的制作
【新手入门】之十一:浅谈ADO之序言
【新手入门】之十二:浅谈ADO之Connection
【新手入门】之十三:浅谈ADO之Conmmand(上)
【新手入门】之十四:浅谈ADO之Command(下)
【新手入门】之十五:浅谈ADO之Recordset(上)
【新手入门】之十六:浅谈ADO之Recordset(下)
【新手入门】之十七:浅谈列表框的使用
【新手入门】之十八:双击列表框修改数据
【新手入门】之十九:从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十:“书与书签”——bookmark属性答疑
【新手入门】之二十一:记录集的“凌迟”——逐条导出记录集
【新手入门】之二十二:分组行号
【新手入门】
之二十三:“富则妻妾成群”——浅谈一对多录入数据
【新手进阶】之一:基础算法(一)
【新手进阶】之二:基础算法(二)
【新手进阶】之三:基础算法(三)
【新手进阶】之四:基础算法(四)
【新手进阶】之五:排序搜索(一)
【新手进阶】之六:排序搜索(二)
【新手进阶】之七:递归算法
【新手进阶】之八:冒泡排序
【新手进阶】之九:浅谈不绑定数据源操作记录
【新手进阶】之十:工作日的计算
【新手进阶】之十一:“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二:从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三:Outlook风格导航界面
【新手进阶】之十四:仓库管理系统
作者:
tmtony
时间:
2019-3-2 11:57
这个有实用价值!
作者:
wuwu20022
时间:
2019-3-7 10:09
学习
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3