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;
好的代码像粥一样,都是用时间熬出来的