XH:序号字段,计算性质的字段。
procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
inherited;
Text := IntToStr(Sender.DataSet.RecNo);
end;
XH:序号字段,计算性质的字段。
procedure TfrmTingTaiInfo.ADOQitemXHGetText(Sender: TField;
var Text: string; DisplayText: Boolean);
begin
inherited;
Text := IntToStr(Sender.DataSet.RecNo);
end;
转载于:https://www.cnblogs.com/bingege/archive/2012/02/03/2336890.html