显示行号.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 10 行

在sql增加一常数字段
select 0 as id,你的其它字段 ...
在字段id的OnGetText事件中：
procedure TForm.ADOQuery1idGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text:=IntToStr(DBGridEh1.DataSource.DataSet.RecNo);
end;