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