Estou com problemas no uso com o while
Estou utilizando a seguinte sintaxe para lançar os dados resultantes de uma filtragem para uma tabela.
dm1.QHistoricoG.First;
while not dm1.QHistoricoG.eof do begin;
dm1.TBCredSem.Insert;
dm1.QHistoricoGcodalu.asstring;
dm1.TBCredSemCodCur.asstring := dm1.QHistoricoGCodCur.asstring;
dm1.TBCredSemdisciplina.Value := dm1.QHistoricoGnome.asstring;
dm1.TBCredSemperiodo.AsString := dm1.QHistoricoGperiodo_grade.asstring;
dm1.QHistoricoGSituaAlu.AsString;
dm1.TBCredSemCs.AsString
dm1.QHistoricoG.Next;
end;
O que ocorre, todos os registros são gravados na tabela normalmente, com excessão do último registro que não é lançado, o que está acontecendo por que o último registro não é lançado, como faço para que ele seja lançado também ?
dm1.QHistoricoG.First;
while not dm1.QHistoricoG.eof do begin;
dm1.TBCredSem.Insert;
dm1.QHistoricoGcodalu.asstring;
dm1.TBCredSemCodCur.asstring := dm1.QHistoricoGCodCur.asstring;
dm1.TBCredSemdisciplina.Value := dm1.QHistoricoGnome.asstring;
dm1.TBCredSemperiodo.AsString := dm1.QHistoricoGperiodo_grade.asstring;
dm1.QHistoricoGSituaAlu.AsString;
dm1.TBCredSemCs.AsString
dm1.QHistoricoG.Next;
end;
O que ocorre, todos os registros são gravados na tabela normalmente, com excessão do último registro que não é lançado, o que está acontecendo por que o último registro não é lançado, como faço para que ele seja lançado também ?
Carlosdarienzo
Curtidas 0
Respostas
Marcioih
29/11/2003
Olá amigo,
O que acontece, é que qdo. chega no último registro da tabela QHistoricoG e na tabela TBCredSem que está sempre ocorrendo um Insert, ele não conclui o método Insert, então a solução é colocar uma linha TBCredSem.Post antes de QHistoricoG.Next, aí tem a segurança de que ele gravará o último registro também!
Até mais!
O que acontece, é que qdo. chega no último registro da tabela QHistoricoG e na tabela TBCredSem que está sempre ocorrendo um Insert, ele não conclui o método Insert, então a solução é colocar uma linha TBCredSem.Post antes de QHistoricoG.Next, aí tem a segurança de que ele gravará o último registro também!
Até mais!
GOSTEI 0