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