get no listbox

[neto_23]

IF obrw2:nColAct == 1

uProduto := ar_prnow2[obrw2][1]

uQuantidade := ar_prnow2[obrw2][10]

bGet := {|| uProduto:= ar_prnow2[obrw2], ;

obrw2:lEditCol( 1, @uProduto,"@!",, CLR_RED, CLR_YELLOW), ;

obrw2:Refresh() }

Eval( bGet )

if substr(uproduto,1,1) = '*'

tbceca2(14,2)

endif

id=code>id=code>

tem como no get acima mencionado colocar a tecla f2 para consulta.. e uma lupa no get...

agradeço a dica

mais é listbox nativo

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;

[neto_23]

IF obrw2:nColAct == 1

uProduto := ar_prnow2[obrw2][1]

uQuantidade := ar_prnow2[obrw2][10]

bGet := {|| uProduto:= ar_prnow2[obrw2], ;

obrw2:lEditCol( 1, @uProduto,"@!",, CLR_RED, CLR_YELLOW), ;

obrw2:Refresh() }

Eval( bGet )

if substr(uproduto,1,1) = '*'

tbceca2(14,2)

endif

id=code>id=code>

tem como no get acima mencionado colocar a tecla f2 para consulta.. e uma lupa no get...

agradeço a dica

mais é listbox nativo

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;

[Eduardo Bilato]

Boa tarde Gabrieis

Acredito que pra isso que você está querendo, deve modificar o método da classe.

Algo como passar um parâmetro e testá-lo no método pra chamar sua função de consulta no F2 e colocar a imagem

É um palpite

att

Eduardo de Camargo Bilato

FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

email: eduardobilato@gmail.com

msn: dunhox@hotmail.com

[aferra]

na sua verão do fwh tem o xbrowse, use ele para o que vc pretende, é bem melhor e mais facil, exemplo aos monte em dicas.

Um grande Abraço

Alessandroid=blue>

FW9.07 + xHb121 + CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>