Search the Community
Showing results for tags 'pesquisa'.
Found 1 result
-
bom dia, estou tentando fazer uma pesquisa em meu browse com uma pesquisa com parte de uma string usando o comando OrdWildSeek. dbf com cdx. Estou fazendo o seguinte: @40,260 get oGet1 var cNom PICT "@!" OF oDlg Size 230,12 pixel BITMAP ".\IMAGE\bitmaps\zoom.bmp" action PesquisaParteString(obrw,cnom) SELE 47 DBSETORDER(1) TABELA3->(dbgotop()) OTABELA3:={} DbEval({|| AaDd(OTABELA3,{TABELA3->CODIGO,TABELA3->TABELA3,alltrim(tabela3->DESCRICAON)})}) TABELA3->(dbgotop()) @60,5 XBROWSE oBrw SIZE 490,180; COLUMNS 1,2,3; HEADERS "Código","Tabela3","Descrição" ; PICTURES NIL,Nil,NIL; COLSIZES 80,300,300 ; OF oDlg pixel; ARRAY oTabela3 FUNCTION PesquisaParteString(obrw,oTexto) SELE 47 DBGOTOP() if OrdWildSeek("*"+alltrim(OTEXTO)+"*") oTAbela3:={} AaDd(OTABELA3,{TABELA3->CODIGO,TABELA3->TABELA3,alltrim(tabela3->DESCRICAON)}) DO WHILE OrdWildSeek("*"+alltrim(OTEXTO)+"*",.T.) AaDd(OTABELA3,{TABELA3->CODIGO,TABELA3->TABELA3,alltrim(tabela3->DESCRICAON)}) ENDDO else tabela3->(dbgotop()) end amensagem:="" OBRW:SETARRAY(OTABELA3) OBRW:REFRESH() DBGOTOP() RETURN nil ------------------------------------------- Funciona, o browse é atualizado somente com os dados da minha pesquisa. Agora como faço pra através do browse alterar meu lançamento no arquivo. Como faço essa relação array com o banco de dados.
