Actualizar todos los registros de un ClientDataSet

[Caminante]

Hola


Como es un clientdataset podrias crear el campo para la numeracion como calculado y luego en el evento oncalcfields:

Código Delphi [-]
MiDataset.fieldbyname('Num').asinteger:=Midataset.recno;

No lo he probado pero una vez hice lo mismo y mas o menos recuerdo que asi lo resolvi.



Espero sea util


Saludos

[[oscarac]]

no funciona, me sale 0 en todos los registros.

[ecfisa]

Hola.

Pero, ¿ Asignaste la propiedad TClientDataSet.RecNo al campo calculado en el evento OnCalcFields del TClientDataSet ?

Saludos

[[oscarac]]

me explicas como se hace por favor?

[ecfisa]

Hola.

Si por supuesto, va un ejemplo:

1.- Sobre el TClientDataSet hace click con botón derecho del mouse y agrega los campos persistentes:


2.- Agrega un nuevo campo:


3.- Definelo:


Y luego, estando seleccionado el TClientDataSet, desde el Object Inspector -> events -> doble click sobre el evento -> OnCalcFields y dentro del procedimiento este código:

Código Delphi [-]
procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
begin
  cdsRecNo.Value := ClientDataSet1.RecNo;
end;

Saludos

[[oscarac]]

ah si
hice eso, agregue un campo Item (Calculated)
pero me sale cualquier cosa

[ecfisa]

Hola.

En mis pruebas mantiene correctamente la numeracion de los registros al agregarlos o al borrarlos:


Pero, hay que tomar en cuenta que no todos los DataSet reconocen posiciones y eso podría estar dandote algun problema. En la categoría de los que no lo hacen entran aquellos que soportan cliente/servidor.

Como desconozco el gestor de base de datos y los componentes de conexión que estas usando, no podría decir mucho mas...

Saludos