Porque vc não faz o seguinte, se é que eu entendi seu problema. um loop varrendo a tabela de origem
tabeladestino.Insert; for num:=1 to n1 do begin tabeladestino.Fields[num] := tabelaorigem.Fields[num]; end; tabeladestino.Post; tabelaorigem.next Otavio -----Mensagem original----- De: Filipe Geyer [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 8 de setembro de 2004 12:07 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Post sem pular linha Seguinte, montei a procedure abaixo para copiar os registros de uma tabela bdf para outra gdb (ambas com campos iguais). procedure TForm1.BitBtn1Click(Sender: TObject); var Num: SmallInt; n1,n2,i: integer; begin dbgrid1.Refresh; dbgrid1.Update; n1 := table1.FieldCount; n2 := table1.RecordCount; i := 0; num := 0; repeat repeat dbgrid1.Refresh; ibtable1.Insert; ibtable1.Fields[num] := table1.Fields[num]; ibtable1.Post; ibtable1.prior; num := num +1; until num = n1 -1; i := i + 1; num := 0; table1.Next; until i = n2; Application.MessageBox(PChar('Transação Concluída!'), PChar('Aviso...'), mb_ok); O Problema é que A Tabela destino fica assim: Cod____|Nome_|Numero__|etc______|etc______ 001____|______|________|_________|_____ _______|Filipe__|________|_________|_____ _______|______|003_____|_________|_____ _______|______|________|ghfg_____|_____ _______|______|________|_________|sdgs_ To a algumas tardes tentando, pedindo ajuda, mas tah impossivel!!! Será q alguem mais experiente poderia me ajudar??? Obrigado. --------------------------------- Yahoo! Acesso Grátis - navegue de graça com conexão de qualidade! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.754 / Virus Database: 504 - Release Date: 06/09/2004 [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] ou [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
