DBGrid显示行号的几种方法

程序中也不用循环呀
给该DBGrid对应的数据集控件如AdoDateSet增加一个计算字段，类型为Integer
然后在该字段的OnGetText事件中
写上： Text := IntToStr(AdoDateSet.RecNo)；这一句代码就行了

 

procedure Tkcspmxbform.Query1xh1GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := IntToStr(query1.RecNo);
end;

 

procedure TForm1.ClientDataSet1IDGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
var
  r: Integer;
begin
  r := Sender.DataSet.RecNo;
  if r = -1 then
    Text := ''
  else
    Text := IntToStr(r)
end;

 

ADO中字段的GetText用法

XH：序号字段，计算性质的字段。

procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  inherited;
  Text := IntToStr(Sender.DataSet.RecNo);
end;