[ilichhernandez]

He intentado con el codigo que sigue a continuacion, pero no me inserta los registris en las otras tablas..... o sea los datos estan en tcomparacion , y trato de enviar los datos a diferentes tablas segund un dato de un campo, pero no funciona.....Agradeceria el tiempo de alguno de los masters.....

Código Delphi [-]
//repartir los diferentes registros de tcomparacion en tfuncional,tquimico,tfisico y tmicro
dm.tcomparacion.Open;
While (not dm.tcomparacion.eof) Do
   Begin
   If (dm.tcomparacion.FieldByName('analisis').AsString <> '') then
      begin
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'fisico') then
               begin
               dm.Qryfisico.SQL.Clear;
               dm.Qryfisico.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryfisico.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "fisico" ');
               dm.Qryfisico.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'quimico') then
               begin
               dm.Qryquimico.SQL.Clear;
               dm.Qryquimico.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryquimico.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "quimico" ');
               dm.Qryquimico.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'funcional') then
               begin
               dm.Qryfuncional.SQL.Clear;
               dm.Qryfuncional.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qryfuncional.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "funcional" ');
               dm.Qryfuncional.ExecSQL;
               end;
           if (dm.tcomparacion.FieldByName('tipo').AsString = 'micro') then
               begin
               dm.Qrymicro.SQL.Clear;
               dm.Qrymicro.SQL.Add('INSERT INTO fisico (analisis,minimo,maximo,resultado,tipo,unidad,metodo)');
               dm.Qrymicro.SQL.Add('SELECT * FROM comparacion where comparacion.tipo = "micro" ');
               dm.Qrymicro.ExecSQL;
               end;
   end; //if
dm.tcomparacion.Next;
end;
dm.tcomparacion.Close;

Gracias....

Ilich Hernandez