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

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

演 示：

示例下载：