Creation Array from Tdatabase

[Silvio.Falconi]

I need to create on Memory an array from a database

I need to insert several conditions

Now I tried making a filter

oConteggio:=TDatabase():Open( , "Lotto", "DBFCDX", .T. )

IF nLastRecords > 0
nInit:=oConteggio:lastrec()-nLastRecords
nEnd:= oConteggio:lastrec()
ENDIF

oConteggio:Exec( <||
SET FILTER TO ( dFirst <= FIELD->DATA .AND. ;
dLast >= FIELD->DATA .AND. ;
aCountMesi[ MONTH( FIELD->DATA ) ] .AND. ;
aCountGiorni[ DOW( FIELD->DATA )-1 ] .AND. ;
aCountDate[ DAY( FIELD->DATA ) ] .AND. ;
aCountIndici[ FIELD->IDX ] )
return nil
> )

where I insert the conditions on FW_Dbftoarray function ?

thanks

[nageswaragunupudi]

Code: Select all  Expand view  RUN

function FW_DbfToArray( cFieldList, bFor )

Give your filter condition in the second parameter ( bFor ) as a codeblock

[Silvio.Falconi]

Code: Select all  Expand view  RUN

function FW_DbfToArray( cFieldList, bFor )

Give your filter condition in the second parameter ( bFor ) as a codeblock

Thanks