首先给adoquery1增加一个 aaa 为 int, field type 为calculated 的字段, 给dbgrid添加一个onDrawDataCell事件 procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if field=adoquery1.FieldByName('新增字段名') then dbgrid1.Canvas.TextOut(rect.Left,rect.Top,inttostr(adoquery1.RecNo)); end;
给dbgrid添加一个onDrawDataCell事件
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if field=adoquery1.FieldByName('新增字段名') then
dbgrid1.Canvas.TextOut(rect.Left,rect.Top,inttostr(adoquery1.RecNo));
end;
的方法已经够简单了啊