ник: Lukas
Имею такую тормозилку:
Public Sub TestCaption()
Dim rst As DAO.Recordset
Dim i As Integer
Dim strCaption As String
Set rst = CurrentDb.OpenRecordset("SELECT * FROM sqlListOrderCurrent WHERE False", , dbReadOnly)
Debug.Print apiTimeGetTime, "Start"
With rst
For i = 1 To .Fields.Count - 1
' strCaption = .Fields(i).Properties("Caption") '48487000-Start 48488234-Finish Итого: 1234 (до 1400)
strCaption = .Fields(i).Name '48390500-Start 48390500-Finish Итого: 0 (до 5)
Next i
.Close
End With
Set rst = Nothing
Debug.Print apiTimeGetTime, "Finish"
End Sub
|
То есть, имена полей считываются за доли секунды, а подписи - с заметным тормозом.
Почему, более - менее понятно.
Вопрос: как-бы ускориться?
Ну не переходить-же опять на русские имена полей!
