Problemas com Dbgrid

[Sérgio H. Martins 0]

Ola pessoal tudo tranquilo?

 

Estou tendo um problema, estou fazendo um programa para calculo de juros e tenho 2 dbgrids num form, estou tentando transf. as informações de uma tabela para outra e após gerar um relatório do cliente.

 

Então é o seguinte, quando abro o programa ele funciona normalmente, só que quando clico no botão para passar as nfs. selecionadas de uma tabela para outra ela não mostra a informação no segundo dbgrid. O código esta funcionando pois olhando no Access e passa todas as Nfs. escolhidas, mas o sistema não mostra em tempo de execução. Mas caso eu feche o programa e abra novamente la esta o dbgrid mostrando as NFs.

 

O que pode ser? Segue abaixo código.

 

CODE

procedure Tfrmjuros.BitBtn2Click(Sender: TObject);

var

Idx :Integer;

begin

if DBGrid1.SelectedRows.Count > 0 then

begin

for Idx := 0 to DBGrid1.SelectedRows.Count-1 do

begin

 

// posiciona o dataset de origem no "n" registro selecionado

dm.ADOQueryjurosSEI.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[idx]));

 

// move os dados do dataset de origem para destino aqui

dm.ADOQueryjurossist.Append;

dm.ADOQueryjurossistnum_fatura.text := dm.ADOQueryjurosSEInum_fatura.text;

dm.ADOQueryjurossistnum_duplic.text := dm.ADOQueryjurosSEInum_duplic.text;

dm.ADOQueryjurossistnum_estxxx.text := dm.ADOQueryjurosSEInum_estxxx.text;

dm.ADOQueryjurossistdat_emissa.text := dm.ADOQueryjurosSEIdat_emissa.text;

dm.ADOQueryjurossistdat_pagato.asstring := dm.ADOQueryjurosSEIdat_pagato.asstring;

dm.ADOQueryjurossisttxt_situac.text := dm.ADOQueryjurosSEItxt_situac.text;

dm.ADOQueryjurossistnum_valapa.text := dm.ADOQueryjurosSEInum_valapa.text;

dm.ADOQueryjurossisttxt_bancoc.text := dm.ADOQueryjurosSEItxt_bancoc.text;

Dm.ADOQueryjurossist.Post;

 

 

end;

end;

end;

 

Se poderem me ajudar.

 

Obrigado

 

Sergio

[Rodrigo Miss 1]

No Final do laço For, feche e abra novamente o dataset:

 

{...}
	  dm.ADOQueryjurossisttxt_bancoc.text := dm.ADOQueryjurosSEItxt_bancoc.text;
	  Dm.ADOQueryjurossist.Post;
	end;

	Dm.ADOQueryjurossist.Close;
	Dm.ADOQueryjurossist.Open;
  end;
end;

[Marcelo R Moura 0]

A dica do Rodrigo é quente, isso vai fazer um "Refresh"...

 

 

você deve verificar também se o dbgrid q nao exibe as informações está ligado a base de forma correta...

[Sérgio H. Martins 0]

Ola amigos, Obrigado pela Dica!!

 

Fiz o procedimento na query só que não aparece tbm, então resolvi testar com o AdoTable e + um Refresh na Query ai deu certo, agradeço muito pela dica, consegui com ela resolver o problema. Segue abaixo o código.

 

CODE

{...}

dm.ADOQueryjurossisttxt_bancoc.text := dm.ADOQueryjurosSEItxt_bancoc.text;

Dm.ADOQueryjurossist.Post;

end;

 

 

Dm.ADOTbjuros1.Close;

Dm.ADOTbjuros1.Open;

Dm.ADOQueryjurossist.refresh;

 

end;

end;

 

Um abração a todos

 

Att

Sergio Martins