cara veja se e isso que vc precisa: declare uma variavel do tipo bookmark var registro:tbookmark; begin registro:=table.getbookmark; desabilita os controles. table.DisableControls; edit.. post... close. open; table.gotobookmark(registro); table.EnableControls; end;
---- Original Message ----- From: Doretto To: [email protected] Sent: Thursday, August 17, 2006 5:06 PM Subject: Re: [delphi-br] DbGrid.. Boa tarde.. vou exemplificar melhor.. vamos imaginar um grid assim: num total de 1000 registros eu estou posicionado no codigo 502... Codigo Descricao do Produto Preco de Venda 500 aaaaaaaaaaaaaaaaaaaa 30,50 501 nnnnnnnnnnnnnnnnnnnn 44,50 >502 ytttttttttttttttttttttttyyyyyy 10,50 503 rrrrrrrrrrrrrrrrrrrrrrrrrrr 9,40 504 bbbbbbbbbbbbbbbbb 22,40 505 fffffffffffffffffffffffffffffffffffff 33,30 506 rrrrrrrrrrasfasdfasdfasdffasdf 48,00 agora eu vou alterar o registro do codigo=502, e vou dar um close e um open no grid, com o locate eu volto para o registro de codigo=502 mas a tela nao fica a mesma, veja o resultado da tela: Codigo Descricao do Produto Preco de Venda 501 nnnnnnnnnnnnnnnnnnnn 44,50 >502 ytttttttttttttttttttttttyyyyyy 10,50 503 rrrrrrrrrrrrrrrrrrrrrrrrrrr 9,40 504 bbbbbbbbbbbbbbbbb 22,40 505 fffffffffffffffffffffffffffffffffffff 33,30 506 rrrrrrrrrrasfasdfasdfasdffasdf 48,00 507 ooooooooooooooooooooo 39,00 Podemos verificar que a tela muda, o registro permace posicionado no mesmo codigo. Abraço ----- Original Message ----- From: "Jean" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, August 18, 2006 4:42 PM Subject: Re: [delphi-br] DbGrid.. tipo assim... voce esta no registro 20 e quando volta esta no registro 30 ??? ----- Original Message ----- From: Doretto To: [email protected] Sent: Thursday, August 17, 2006 4:07 PM Subject: Re: [delphi-br] DbGrid.. Boa Tarde.. Na verdade vcs ainda nao estão me ententendo. O que muda é a posicao relativa da tela dos registros.. Abraço ----- Original Message ----- From: "Paulo Sérgio de Souza" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, August 18, 2006 2:35 PM Subject: Re: [delphi-br] DbGrid.. Boa tarde. Quanto ao reposicionamento, você pede para a query reposicionar no registro que foi alterado no código QPROD.Locate(...) e quanto ao demais registros imagino que a query deve possuir algum parâmetro de filtro que não está sendo passado antes do Open. Verifique se inicialmente você passa algum parâmetro à query para mostrar no dbgrid. Sds, Paulo Desenvolvedor B.Hte./MG ----- Original Message ----- From: Doretto To: [email protected] Sent: Thursday, August 17, 2006 1:41 PM Subject: Re: [delphi-br] DbGrid.. Boa Tarde !!! O problema nao é o registro e sim o posicionamento da tela que muda, se tenho em tela 10 registros (Mostrando) de um total de 1000, quando dou um close e um open na Querey os 10 registros que estavam anteriormente mostrados nao sao os mesmos, mas o ele posiciona no registro que eu estou alterando. Não sei se ficou claro... Abraço ----- Original Message ----- From: "Paulo Sérgio de Souza" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, August 18, 2006 11:42 AM Subject: Re: [delphi-br] DbGrid.. Bom dia Doretto. Você já verificou como está o order by da sua query? Possivelmente a ordenação está considerando o campo PRECO. Sds. Paulo Desenvolvedor B. Hte./MG ----- Original Message ----- From: Doretto To: Delphi Sent: Thursday, August 17, 2006 9:53 AM Subject: [delphi-br] DbGrid.. Bom Dia !!! Estou com um probleminha no Dbgrid usando Query.. Tenho um Dbgrid de Produtos c/ Codigo, Descricao e Preco, toda vez que eu altero o preco de venda e atualizo o dbgrid ele muda de posição de tela. Ex: Wcod:=QprodCodigo.asInteger; Qprod.Close; Qprod.Open; Qprod.Locate('Codigo',Wcod,[]); No dbgrid ele permanece no registro porem a posicao dos registros na tela muda... Tem como resolver isto... Abraço [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos ------------------------------------------------------------------------------ Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.10.8/415 - Release Date: 09/08/06 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Links do Yahoo! Grupos ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.405 / Virus Database: 268.11.2/422 - Release Date: 17/08/2006 [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
