Jump to content
Fivewin Brasil

ListBox c/ Filtro


Luiz Fernando

Recommended Posts

Colegas estou com um problema ref. Filtrar dados com o LISTBOX,precisava filtrar O,Com UM parametro do DBCOMOBO,segue a sintaxe a baixo para ver se estou fazendo alguma coisa errada...

REDEFINE DBCOMBO oGru1 VAR cGru1 ID 107 OF oDlg;

ALIAS "DE1" ;

ITEMFIELD "CODI_CLA" ;

LISTFIELD "NOME_CLA"

REDEFINE LISTBOX oLbx ;

ALIAS "DE2" ;

FIELDS DE2->CODI_SUB,DE2->NOME_SUB ;

HEARDERS "CODIGO","DESCRICAO" ;

ID 101 OF oDlg

oLbx:SETFILTER("DE2->CODI_CLA+DE2->CODI_SUB",cGru1)

oLbx:refreshc()

OBS: se eu criar um dialog com o dbcombo e depois acionar algum buttom e chamar uma procedure com outra tela de dialog e usar o tradicional set filter to e abaixo o listbox da certo mais queria fazer tudo na mesmo Tela de dialog...

Valeu Grato...

Luiz Fernando

FW 2.4 , WORKSHOP, CLIPPER5.3, BLINKER 7.0, DBASE

Editado por - empresoft on 04/01/2007 11:13:33

Link to comment
Share on other sites

Colegas estou com um problema ref. Filtrar dados com o LISTBOX,precisava filtrar O,Com UM parametro do DBCOMOBO,segue a sintaxe a baixo para ver se estou fazendo alguma coisa errada...

REDEFINE DBCOMBO oGru1 VAR cGru1 ID 107 OF oDlg;

ALIAS "DE1" ;

ITEMFIELD "CODI_CLA" ;

LISTFIELD "NOME_CLA"

REDEFINE LISTBOX oLbx ;

ALIAS "DE2" ;

FIELDS DE2->CODI_SUB,DE2->NOME_SUB ;

HEARDERS "CODIGO","DESCRICAO" ;

ID 101 OF oDlg

oLbx:SETFILTER("DE2->CODI_CLA+DE2->CODI_SUB",cGru1)

oLbx:refreshc()

OBS: se eu criar um dialog com o dbcombo e depois acionar algum buttom e chamar uma procedure com outra tela de dialog e usar o tradicional set filter to e abaixo o listbox da certo mais queria fazer tudo na mesmo Tela de dialog...

Valeu Grato...

Luiz Fernando

FW 2.4 , WORKSHOP, CLIPPER5.3, BLINKER 7.0, DBASE

Editado por - empresoft on 04/01/2007 11:13:33

Link to comment
Share on other sites

Luiz

se for ntx

dbSetFilter({|| DE2->CODI_CLA+DE2->CODI_SUB},"DE2->CODI_CLA+DE2->CODI_SUB")

agora se for cdx

->(ordSetFocus("seuindice"))

->(OrdScope(0,))//desfaz a selecão

->(OrdScope(1,))//desfaz a selecão

->(OrdScope(0,DE2->CODI_CLA+DE2->CODI_SUB))

->(OrdScope(1,DE2->CODI_CLA+DE2->CODI_SUB))

->(dbGoTop())

Alessandro F. Silvaid=blue>

E-mail :aferracini@terra.com.br

FW2.0d + CL53b + Blinker 7.0 + @Say + CDX

MSN: ferracini_silva@hotmail.com

Ribeirão Preto/SP

Editado por - aferra on 04/01/2007 15:11:42

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...