Office中国论坛/Access中国论坛

标题: 【源码通用函数】在窗体中实现动态行号（连续序号） [打印本页]

作者: 红尘如烟 时间: 2010-11-30 20:03
标题: 【源码通用函数】在窗体中实现动态行号（连续序号）
以前有一阵子需要这个功能，不过没有找到好的办法，后来无意中在微软网站的帮助中心中见到一个实现方法，思路很好，不过感觉还能再改进，于是按照这个思路重新写了一个通用函数，效率更高，用起来更简单。微软KB原文地址：http://support.microsoft.com/kb/120913
[attach]44250[/attach]

'=========================================================================================
'函数名称： GetLineNumber
'功能描述：在窗体中显示记录的行号
'输入参数： DataForm 必需的，要显示行号的绑定数据窗体
'返回参数：每一行记录的行号
'使用说明：在绑定窗体中创建一个文本框，然后将控件来源设为：=GetLineNumber([Form]) 即可。
'兼容性：
'作者：红尘如烟
'创建日期： 20010-11-26
'=========================================================================================
Function GetLineNumber(DataForm As Form)
On Error GoTo Err_GetLineNumber
With DataForm.RecordsetClone
.Bookmark = DataForm.Bookmark
GetLineNumber = .AbsolutePosition + 1
End With
Err_GetLineNumber:
End Function

复制代码

作者: todaynew 时间: 2010-11-30 20:19
支持

作者: aslxt 时间: 2010-11-30 20:30
谢谢，学习

作者: tmtony 时间: 2010-11-30 21:44
红尘,很妙的代码!

作者: t小宝 时间: 2010-11-30 22:34
确实很好！

作者: zyp 时间: 2010-11-30 22:37
很好很强大, 顶.........

作者: li08hua 时间: 2010-12-1 01:57
以前自己也用到过，用数组做了个动态排序，没想到红尘的函数效率如此高。顶♂
作者: warcheanglee 时间: 2010-12-1 06:19
多谢分享。
作者: asklove 时间: 2010-12-2 16:03
这是不是传说中的伪行号？
下载！
作者: iamee 时间: 2010-12-2 20:48
多谢,红尘的都是精品~~
作者: guzhonghua26 时间: 2010-12-10 14:49
能用于查询吗？
作者: 红尘如烟 时间: 2010-12-10 17:56

guzhonghua26 发表于 2010-12-10 14:49
能用于查询吗？

你把查询通过窗体显示出来就行了
作者: qmx0993 时间: 2010-12-31 02:22

作者: Y9X 时间: 2011-9-17 17:28
红尘如烟，我用了这个方法，在文本数据源中=GetLineNumber([Form])结果所有的行号都是1，换成=GetLineNumber([货权转移])结果错误，麻烦再教一下，多谢了。
作者: lin2003_lin 时间: 2011-11-17 17:23
厉害
作者: changweiren 时间: 2011-12-3 13:54
实用,谢谢!
作者: ruanjy 时间: 2012-3-21 09:43
支持
作者: jzbinbin5 时间: 2013-10-30 23:07
多点
作者: leonshi 时间: 2013-11-3 11:20
比较实用的例子
作者: alonet 时间: 2013-11-28 15:51
ADP中设置每次窗体当前事件时会重刷新数据多时显示很慢
作者: shslsun 时间: 2015-1-21 09:03
不错呀
作者: shslsun 时间: 2015-1-21 09:04
太好了。
作者: p51219 时间: 2016-4-9 23:19
支持原创
作者: boon 时间: 2019-3-28 23:23
红尘的都是精品

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3