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

来源:原创 点击数:133346 　 | 收藏 | 复制

时　间:2010-12-01 00:00:00
作　者:红尘如烟 ID：10768 城市：成都
摘　要:在窗体中显示记录的行号。
正　文:

以前有一阵子需要这个功能，不过没有找到好的办法，后来无意中在微软网站的帮助中心中见到一个实现方法，思路很好，不过感觉还能再改进，于是按照这个思路重新写了一个通用函数，效率更高，用起来更简单。微软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

附件:

点击下载此附件