Hola
Cita:
Empezado por turbopascual5.0
....
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