Ver Mensaje Individual
  #2  
Antiguo 20-11-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola
Cita:
Empezado por turbopascual5.0 Ver Mensaje
....
Tengo un error que no me habia ocurrido nunca y ya no sé donde buscar una solución

Código:
clientdataset3.append;
clientdataset3tipo.value:='Factura';
clientdataset3.Post;
clientdataset3.append;
clientdataset3tipo.value:='Recibo';     // en esta linea da error  , clientdataset3: dataset  not in edit or insert mode 
clientdataset3.Post;
¿alguna idea?
...
No, mediando sólamente ese código no me lo explico... Hice un ejemplo simplificado para que puedas corroborarlo:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  fld: TField;
begin
  ClientDataSet1.Close;
  ...
  fld              := TStringField.Create(ClientDataSet1);
  fld.FieldName    := 'cdsTipo';
  fld.DataSet      := ClientDataSet1;
  fld.DisplayLabel := 'Tipo';
  fld.Size         := 10;
  ClientDataSet1.CreateDataSet;
  DataSource1.DataSet := ClientDataSet1;
  DBGrid1.DataSource  := DataSource1;
end;

procedure TForm1.btAddClick(Sender: TObject);
begin
  ClientDataSet1.Append;
  ClientDataSet1.FieldByName('cdsTipo').Value := 'Factura';
  ClientDataSet1.Post;

  ClientDataSet1.Append;
  ClientDataSet1.FieldByName('cdsTipo').Value := 'Recibo';
  ClientDataSet1.Post;
end;

Muestra:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 20-11-2015 a las 00:04:40.
Responder Con Cita