edmar1361303188 Posted August 2, 2002 Report Share Posted August 2, 2002 Caro Gilmer, Me ajude por favor, estou tentando fazer uma pesquisa usando o método bKeyDown, enquanto o usuário digita eu pesquiso a tabela e atualizo o browse. O problema é que não estou conseguindo ver o valor da variável Get, observe o código abaixo: *---------------------- Static Function SeleCli *----------------------------------------------------------- Private oJanselcli,mcli,ListCli1,ListCli2,uVal If !File("CliTmp.Dbf") Copy Structure To CliTmp Endif Set order to 2 Use CliTmp New Use cadcli new Index Cadclin2 Alias CliTmp2 Index On Nome To CliTmp Define Dialog oJanselcli Resource "SeleCli" Redefine ListBox ListCli1 Fields Trans(CliTmp2->Codigo,"99999"),CliTmp2->Nome,; CliTmp2->Endereco Alias "CliTmp2" Headers "Código","Nome","Endereço" ID 102 of oJanselcli Redefine ListBox ListCli2 Fields Trans(Clitmp->Codigo,"99999"),Clitmp->Nome,; Clitmp->Endereco Alias "CliTmp" Headers "Código","Nome","Endereço" ID 103 of oJanselcli Redefine Get mcli Var uVal ID 101 of oJanselcli Picture "@!" Redefine Button ID 104 of oJanselcli Action SelCli2() Redefine Button ID 105 of oJanselcli Action oJanselcli:End() ListCli2:BlDblClick:={|| SelCli2()} mcli:bKeyDown:={|nKey| PesqCli2(nKey)} <== AQUI BKEYDOWN Activate Dialog oJanselcli Centered Select CliTmp Return( Nil ) *----------------------------- Static Function PesqCli2(nKey) *----------------------------------------------------------------------------- CliTmp2->(DBSeek(tGet():cText))<== AQUI NÃO ESTà FUNCIONANDO ListCli1:Refresh() Return( .T. ) Se eu substituir tGet():cText por uval ou mcli também não funciona. O que fazer ? Desde já agradeço. Quote Link to comment Share on other sites More sharing options...
gilmer Posted August 2, 2002 Report Share Posted August 2, 2002 Olá, Baixe esta exemplo, verifique se atende sua necessidade http://wabc.wol.com.br:70/fivewin/contadownload.asp?nome=tsearch.zip&arquivo=61 citação: Caro Gilmer, Me ajude por favor, estou tentando fazer uma pesquisa usando o método bKeyDown, enquanto o usuário digita eu pesquiso a tabela e atualizo o browse. O problema é que não estou conseguindo ver o valor da variável Get, observe o código abaixo: *---------------------- Static Function SeleCli *----------------------------------------------------------- Private oJanselcli,mcli,ListCli1,ListCli2,uVal If !File("CliTmp.Dbf") Copy Structure To CliTmp Endif Set order to 2 Use CliTmp New Use cadcli new Index Cadclin2 Alias CliTmp2 Index On Nome To CliTmp Define Dialog oJanselcli Resource "SeleCli" Redefine ListBox ListCli1 Fields Trans(CliTmp2->Codigo,"99999"),CliTmp2->Nome,; CliTmp2->Endereco Alias "CliTmp2" Headers "Código","Nome","Endereço" ID 102 of oJanselcli Redefine ListBox ListCli2 Fields Trans(Clitmp->Codigo,"99999"),Clitmp->Nome,; Clitmp->Endereco Alias "CliTmp" Headers "Código","Nome","Endereço" ID 103 of oJanselcli Redefine Get mcli Var uVal ID 101 of oJanselcli Picture "@!" Redefine Button ID 104 of oJanselcli Action SelCli2() Redefine Button ID 105 of oJanselcli Action oJanselcli:End() ListCli2:BlDblClick:={|| SelCli2()} mcli:bKeyDown:={|nKey| PesqCli2(nKey)} Activate Dialog oJanselcli Centered Select CliTmp Return( Nil ) *----------------------------- Static Function PesqCli2(nKey) *----------------------------------------------------------------------------- CliTmp2->(DBSeek(tGet():cText)) ListCli1:Refresh() Return( .T. ) Se eu substituir tGet():cText por uval ou mcli também não funciona. O que fazer ? Desde já agradeço. id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
edmar1361303188 Posted August 6, 2002 Author Report Share Posted August 6, 2002 Caro Gilmer, Obrigado pela dica do programa de pesquisa TSearch, é exatamte o que quero, só que este programa é uma versão Shareware de avaliação, eu não tenho os fontes para alteração. Será que não tem jeito mesmo usando o método bKeyDown ? No Delphi é assim. Quote Link to comment Share on other sites More sharing options...
gilmer Posted August 7, 2002 Report Share Posted August 7, 2002 Olá, Vou fazer a pesquisa incremental e postar em dicas, pegue na sexta-feira citação: Caro Gilmer, Obrigado pela dica do programa de pesquisa TSearch, é exatamte o que quero, só que este programa é uma versão Shareware de avaliação, eu não tenho os fontes para alteração. Será que não tem jeito mesmo usando o método bKeyDown ? No Delphi é assim. id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.