怎样在DBgrid增加一列，显示行号？？？

Question

如题

Answer 1

在DataSet的NewRecord事件中写代码

Answer 2

用计算字段!在里面加query.RECNO

Answer 3

我用了Recno，结果显示－1，怎么办？？

Answer 4

可以在数据集ADOQuery中新建一个Calculated型的字段'ID'，
然后在ADOQuery的OnAfterScroll事件中加入如下一行:
ADOQuery1.Edit;
ADOQuery1.FieldByName('ID').AsInteger := ADOQuery1.RecNo;然后再在OnCalcFields事件中加入下行：
ADOQuery1.FieldByName('ID').AsInteger := ADOQuery1.RecNo;再在DBGrid中加入ID字段显示即可

Answer 5

var 
  i : integer;
begin
  i:=0;
  AdoQuery1.First;
  While not eof(AdoQuery) do
  begin
    AdoQuery1.Edit;
    AdoQuery1.FieldByName('字段').AsString=inttostr(i);
    AdoQuery1.Post;
    i:=i+1;
  end;

Answer 6

procedure TFrmLog.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
with DBGrid.DataSource.DataSet do
begin
 if DataCol = 0 then//第一列
   DBGrid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(RecNo));
end;
end;   有一个问题，就是增加一个空列的时候显示的都是1，我也一直没有解决掉，你要是解决了也告诉我一声：liuqifeiyu2163.com

Answer 7

var 
  i : integer;
begin
  i:=0;
  AdoQuery1.First;
  While not eof(AdoQuery) do
  begin
    AdoQuery1.Edit;
    AdoQuery1.FieldByName('字段').AsString=inttostr(i);
    AdoQuery1.Post;
    i:=i+1;
  end;

Answer 8

http://community.csdn.net/Expert/topic/3081/3081253.xml?temp=.283581procedure TFrmLog.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
with DBGrid.DataSource.DataSet do
begin
 if DataCol = 0 then//第一列
   DBGrid.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(RecNo));
end;
end;   
这个是DBGrid的，用到DBGridEH也一样