DBGrid能够加上序号吗？？？

Question

如题

Answer 1

type
THackGrid = class(TCustomGrid);
/////////////////////////////////////////    THackGrid(DBGrid1).Row;  
    THackGrid(DBGrid1).Col));//取dbgrid的行列
可能会对你有帮助

Answer 2

1.加一计算计算字段 xuhao2.
procedure TFrm_ChaiDan.ADOZidanjuCalcFields(DataSet: TDataSet);
begin
  ADOZidanju.fieldbyname('xuhao').asinteger:=ADOZidanju.recno+1;
end;3.
procedure TFrm_ChaiDan.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
   if Column.Index =0  then
  with DBGridEh1.Canvas do
  begin
    FillRect(Rect);
    if DBGridEh1.DataSource.DataSet.RecNo<>-1 then
      TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGridEh1.DataSource.DataSet.RecNo));
  end;end;