如何在dbgrideh第一列中显示行号？？？

Question

procedure Tfrm_yrjh.public_detailidGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
Text:=inttostr(public_detail.RecNo)
end;
我是在public_detail中新增了一个虚字段xu_id ，这样可以显示行号，但每次按向下箭头新增纪录时
总是所有行号纪录均变成-1
真的很急！！！
求解！！！！！！！！
注：本人的public_detail是一个虚表

Answer 1

OnDrawColumnCell事件中
begin
if Column.Index = 0 then
  with DBGridEH1.Canvas do
    begin
      FillRect(Rect);
      TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGridEH1.DataSource.DataSet.RecNo));
    end;
end;