ich habe eine SQL Table mit 64000 Sätzen die ich mit 15 FIELDs in einem Browse anzeigen will.
Code: Alles auswählen
METHOD WorkBench:OpenBrowse( oTb, cTable, aFields, aOrder )
nStart := SECONDS()
...
oDlg := GuiStdDialog( "Table :"+cTable )
...
oBrowse := XbpBrowse():new( ...)
...
nFOR := SECONDS()
iMax := oTb:FieldCount()
FOR i:=1 TO iMax
cField := oTb:FieldName( i )
oBrowse:addColumn( MakeBlock( oTb, i ), , cField )
NEXT
nZeit := SECONDS() - nFOR
...
oDlg:title := "Table :"+cTable+" load Time "+LTRIM(STR( SECONDS()-nStart))+;
" Sec. addColumn() "+LTRIM(STR( nZeit ))+" Sec."
***
FUNCTION MakeBlock( oTb, n )
return { || oTb:FieldGet( n ) }
Frage : gibt es einen schnelleren Weg ?