|
Gracias por tu ayuda, casi me funciona ya la aplicacion, lo q pasa es que me saltan diferences excepciones, y algunas veces carga el primer dato y otras veces ninguno, este es el código del click boton:
procedure TForm1.Button1Click(Sender: TObject);
begin
IBTable1.Active:=True;
While not ClientDataSet1.Eof do
begin
IBTable1.Insert;
IBTable1.FieldByName('C_MENS_COD').Value := ClientDataSet1.Fields[0].Value;
IBTable1.FieldByName('N_IND').Value := ClientDataSet1.Fields[1].Value;
IBTable1.FieldByName('C_COD_INT').Value := ClientDataSet1.Fields[2].Value;
IBTable1.FieldByName('C_MENS').Value := ClientDataSet1.Fields[3].Value;
IBTable1.FieldByName('C_TIPO').Value := ClientDataSet1.Fields[4].Value;
IBTable1.FieldByName('C_ORIG').Value := ClientDataSet1.Fields[5].Value;
IBTable1.FieldByName('C_MENS_INT').Value := ClientDataSet1.Fields[6].Value;
IBTable1.FieldByName('C_MOD').Value := ClientDataSet1.Fields[7].Value;
IBTable1.FieldByName('L_PAR').Value := ClientDataSet1.Fields[8].Value;
ClientDataSet1.Next;
end;
IBTable1.Post;
IBTable1.Active:=False;
end;
Una de las excepciones que me salta es esta:
Project Proyecto.exe raised exception class EDatabaseError with message "IBTable1: DataSet not in edit or insert mode"...
El IBTable1 no tiene DataSet, a cual se refiere? Puede ser esta la causa de mi problema?
|