对Access自定义函数GetLineNumber函数一点改进

时　间:2020-03-01 12:50:07
作　者:我的ACCESS   ID：30810  城市：福州
摘　要:对GetLineNumber函数一点改进。
正　文:

GetLineNumber是红尘如烟老师编写的一个在数据窗体显示行号的函数，很实用。在使用过程中发现，对ADO记录集行号显示特别慢，改了一下，觉得过得去。

Function GetLineNumber(DataForm As Form)
        On Error Resume Next
    If IsADORecordset(DataForm.Recordset) Then
        GetLineNumber = DataForm.Bookmark(0) 
    Else
        With DataForm.RecordsetClone
            .Bookmark = DataForm.Bookmark
            GetLineNumber = .AbsolutePosition + 1
        End With
    End If
    DataForm.Repaint
End Function