Numero de ítem en dbgrid

[gianfranco_tont]

Caral, no entiendo lo del querytemp cual serria para mis el querytemp? Y en donde coló esta sentencia?

[[Caral]]

Hola
Un query nuevo, otro query mas que normalmente yo uso para varias cosas, por eso lo llamo temporal.
Simplemente esta enlazado a la BD y se le asigna la labor que se quiera.
El codigo lo pones en el evento oncellclick del dbgrid.
Saludos

[gianfranco_tont]

Me da un error de access violation al hacer click en el grid, lo coloque en el evento dbgrid1cellclick.

[[Caral]]

Hola
No se que estas haciendo, lógicamente.
Me da la impresión, a ojo, que lo tendrías que hacer en el evento o procedimiento que crea una nueva linea al dbgrid, que es cuando necesitas que se cree un nuevo numero para el item.
Saludos

[olbeup]

Hola gianfranco_tont

En tu SQL al principo pon un campo como el siguiente y después te diré para que es:

Código SQL [-]
SELECT
    0 AS NUMITEM <-- Este es el que vamos a modificar con el RecNo del DBGrid
    ,CAMPO1  |
    ,CAMPO2  | --> Esto son tus campos de la DB
    ,CAMPOX  |
    ,....

Después en el DrawColumnCell del DBGrid tienes que poner esto:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  FieldText: String;
  W: Integer;
begin
  if (DataCol = 0) then
    with DBGrid1.DataSource.DataSet do
      FieldText := IntToStr(RecNo);

  with DBGrid1 do
    if (DataCol = 0) then
    begin
      W := ((Rect.Right - Rect.Left) - Canvas.TextWidth(FieldText));
      DefaultDrawing := True;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left + W -2, Rect.Top +2, FieldText);
    end
    else
      DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Espero haberte orientado.

Un saludo.

[ecfisa]

Hola gianfranco_tont.

En referencia a tu primer consulta:

Hola foro, tengo un dbgrid con un clientdataset y lo que quiero hacer es que las filas se autonumeren, ejemplo. Cuando se crea una linea nueva en el grid que sea la 01 la siguen la 02 etc.

Creo que la opción más sencilla es que en el TClientDataSet, crees un campo calculado de tipo string (en el ejemplo lo llamo ClientDataSet1RecNo), mediante el Field Editor, ubícalo en el primer lugar de la lista de campos.

Luego en el evento OnCalcFields del TClientDataSet:

Código Delphi [-]
procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
const
   NCEROS = 2; // Cantidad de ceros a la izquierda
begin
  with ClientDataSet1 do
    ClientDataSet1RecNo.AsString:= StringOfChar('0', NCEROS-Length(IntToStr(RecNo))) + IntToStr(RecNo);
end;
end;

Ese código dá exáctamente el resultado que solicitas.

Lógicamente es necesario que la propiedad DataSource del TDBGrid haga referencia al TDataSource que apunta al TClientDataSet.

Saludos.