Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Code: Select all
use file
if ! field('try')
append blank
replace name with 'try', type with 'character' width with 30, decimals with 0
endif
use
Hi Serge,serge_girard wrote: ↑Thu Oct 04, 2018 8:15 am Is it possible to have something like this:
http://compgroups.net/comp.lang.xharbou ... ta/3100125
This would be the solution for Franco, I suppose.
Code: Select all
/*
* demo.prg
*/
#include "Selector.ch"
PROCEDURE Main()
LOCAL nStart
LOCAL n
LOCAL aData
IF File("temp.dbf")
FErase("temp.dbf")
ENDIF
USE test EXCLUSIVE
@ SELECT first,last,age GROUP,state GROUP FROM test FOR age>60
nStart := Seconds()
aData := {}
? ""
temp->(DbGoTop())
FOR n:=1 TO 20
AAdd( adata, {Alltrim(temp->first),temp->age,temp->state} )
? Alltrim(temp->first),temp->age,temp->state
temp->(DbSkip())
NEXT
? "=============================================================="
? "Added " + Str(Len(aData)) + " Selector records into array in ", Seconds() - nStart
?? " seconds"
? "=============================================================="
inkey(0)
temp->(DbCloseArea())
DbDrop('temp')
RETURNHope that usefulWayne 61 IN
Dickson 61 WI
Tom 62 AZ
Lance 62 FL
Terry 62 IA
Gregory 62 MD
Frederik 62 OR
Heinz 62 PA
Corey 62 SD
Vosgo 63 CA
Michael 63 HI
Luc 63 HI
Laura 63 IA
Francisco 63 MT
Matthew 63 NH
Albert 63 NM
Ralf 63 SC
Kandasamy 63 SC
Gilles 63 VT
Gerard 64 CA
==============================================================
Added 20 Selector records into array in 0.55 seconds
==============================================================
