Página 1 de 1
Erro no Tbrowse()
Enviado: 22 Jan 2010 19:11
por clodoaldomonteiro
Olá amigos!
Uso o TBrowse para visualizar meus arquivos e nele tenho várias funções tipo: modificar, procurar, somar, filtrar e etc.
Só que quando eu faço um filtro e o resultado vem limpo, o sistema repete o último registro e deveria ser mostrado uma tela limpa, sem nenhum registro.
Quando usava o velho clipper não dava esse erro.
Tem alguma diferença entre o clipper e o xharbour, no que diz respeito ao Tbrowse?
Re: Erro no Tbrowse()
Enviado: 22 Jan 2010 21:29
por sygecom
Depois do filtro de um:
DBGOTOP()
ou:
oTRB:gotop()
Re: Erro no Tbrowse()
Enviado: 23 Jan 2010 01:10
por clodoaldomonteiro
Ainda não deu certo.
Minha função tá assim:
Código: Selecionar todos
CASE carac_="F" .OR. carac_="Q" // filtra/quantifica
cri_ant = criterio
IF carac_="F" // filtra
FILTRA(.t.,.t.) // escolhe o filtro
br_w:cargo := {criterio,cpord,chv_rela,INDEXORD(),cmr_}
BR_W:gotop() //coloquei como vc pediu.
br_w:refreshall() // refaz toda a tela
IF cri_ant!=criterio.AND.!EMPTY(criterio) // se alterou o filtro
grava_db=.t. // seta flag de consulta alterada
ENDI
ELSE // quantifica
FILTRA(.f.) // so' monta a expressao
condq=criterio // retorna filtro anterior
criterio = cri_ant
ENDI
brw_reg=RECN() // salva registro atual
MONTABRW() // remonta janela de visualizacao
Re: Erro no Tbrowse()
Enviado: 24 Jan 2010 13:58
por sygecom
Tente colocar o Gotop() depois do:
MONTABRW()
Ou tente postar a rotina completa para que eu possa testar aqui.
Re: Erro no Tbrowse()
Enviado: 27 Jan 2010 16:55
por clodoaldomonteiro
Mandei o projeto completo para teu email.
Re: Erro no Tbrowse()
Enviado: 31 Jan 2010 10:20
por sygecom
Acabei de ver, vou dar uma olhada.
Re: Erro no Tbrowse()
Enviado: 31 Jan 2010 10:40
por sygecom
Tchê, olhei aqui e não consegui simular o seu problema, fui na opção de consulta banco e ele apenas não mostrou nada. Fiz o teste no seu próprio EXE.