Popolare un combo box da un archivio da filtrare

[summario]

Mi trovo nella necessità di popolare un combo box da un archivio da filtrare.
Ma non so da dove cominciare ... Fino ad ora popolavo i combo box con il seguente metodo:


METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS Dettcons

LOCAL PRoServer1 := Schede{}AS Schede
LOCAL PRoServer2 := Lotti{}AS lotti

SELF:oDCmcoPro:FillUsing(PRoServer1:GetLookUpTable(1300,#PROD,#NLAV))

SELF:oDCmlotto:FillUsing(PRoServer2:GetLookUpTable(200,#NFLOTTO,#NLOTTO))

PRoServer1:close()
PRoServer2:close()

RETURN

COme popolare il combo box con i risultati del filtro ??

Grazie a chi vorrà aiutarmi, ancora una volta.

Mario

[Wolfgang Riedmann]

Ciao Mario,

> Mi trovo nella necessit� di popolare un combo box da un archivio da

> filtrare. Ma non so da dove cominciare ... Fino ad ora popolavo i
> combo box con il seguente metodo:
>

> SELF:oDCmcoPro:FillUsing(PRoServer1:GetLookUpTable(1300,#PROD,#NLAV))

> COme popolare il combo box con i risultati del filtro ??

in maniera manuale per esempio:

function ProServer1Lookup() as array pascal
local aReturn as array
local oServer as ProServer1

aReturn := {}
oServer := ProServer1{ , true, true }
// impostare il filtro qui
oServer:GoTop()
while ! oServer:EOF
AAdd( aReturn, { oServer:FieldGet( #Prod ), oServer:FieldGet( #NLav }
)
oServer:Skip()
end
oServer:Close()

return aReturn

Questo � solo un esempio, ma personalmente non uso mai il metodo
GetLookupTable() del DBServer, ma mi costruisco a mano l'array.

Wolfgang




--

[summario]

[summario]

Il giorno martedì 13 novembre 2012 20:46:10 UTC+1, Wolfgang Riedmann ha scritto:
> Ciao Mario,
>
>
>

> > Mi trovo nella necessità di popolare un combo box da un archivio da

>
> > filtrare. Ma non so da dove cominciare ... Fino ad ora popolavo i
>
> > combo box con il seguente metodo:
>
> >
>
> > SELF:oDCmcoPro:FillUsing(PRoServer1:GetLookUpTable(1300,#PROD,#NLAV))
>
>
>
> > COme popolare il combo box con i risultati del filtro ??
>
>
>
> in maniera manuale per esempio:
>
>
>
> function ProServer1Lookup() as array pascal
>
> local aReturn as array
>
> local oServer as ProServer1
>
>
>
> aReturn := {}
>
> oServer := ProServer1{ , true, true }
>
> // impostare il filtro qui
>
> oServer:GoTop()
>
> while ! oServer:EOF
>
> AAdd( aReturn, { oServer:FieldGet( #Prod ), oServer:FieldGet( #NLav }
>
> )
>
> oServer:Skip()
>
> end
>
> oServer:Close()
>
>
>
> return aReturn
>
>
>

> Questo è solo un esempio, ma personalmente non uso mai il metodo

>
> GetLookupTable() del DBServer, ma mi costruisco a mano l'array.
>
>
>
> Wolfgang
>
>
>
>
>
>
>
>
>
> --

Grazie Wolfgang ottimo suggerimento.

Alla prossima
Mario