【源码通用函数】在窗体中实现动态行号（连续序号）

红尘如烟 · 发表于 2010-11-30 20:03:50

以前有一阵子需要这个功能，不过没有找到好的办法，后来无意中在微软网站的帮助中心中见到一个实现方法，思路很好，不过感觉还能再改进，于是按照这个思路重新写了一个通用函数，效率更高，用起来更简单。微软KB原文地址：http://support.microsoft.com/kb/120913

'=========================================================================================
'函数名称： 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:15

支持

aslxt · 发表于 2010-11-30 20:30:48

谢谢，学习

tmtony · 发表于 2010-11-30 21:44:33

红尘,很妙的代码!

t小宝 · 发表于 2010-11-30 22:34:29

确实很好！

zyp · 发表于 2010-11-30 22:37:45

很好很强大, 顶.........

li08hua · 发表于 2010-12-1 01:57:21

以前自己也用到过，用数组做了个动态排序，没想到红尘的函数效率如此高。顶♂

warcheanglee · 发表于 2010-12-1 06:19:50

多谢分享。

asklove · 发表于 2010-12-2 16:03:01

这是不是传说中的伪行号？
下载！

iamee · 发表于 2010-12-2 20:48:06

多谢,红尘的都是精品~~

帐号		自动登录	找回密码
密码			注册

[模块/函数] 【源码通用函数】在窗体中实现动态行号（连续序号）

群介绍
主题无相 (随机显示版	同地区群块其他地区)