本帖最后由 luojianfeng 于 2010-04-30 10:26:20 编辑

解决方案 »

  1.   

    procedure TfrmOptjPrint.DBGridEh1DrawColumnCell(Sender: TObject;
    const Rect: TRect; DataCol: Integer; Column: TColumnEh;
    State: TGridDrawState);
    begin
    inherited;
    if (column.Title.Caption = '序号') then
    begin
        DBGridEh1.Canvas.TextOut(Rect.Left+2,Rect.Top+2,IntToStr(
          dbgrideh1.DataSource.Dataset.RecNo));
    end;
      

  2.   

    新版 EHLIB 5 直接有支持
      

  3.   

    在Ehlib5里的DBGridEh控件属性里点开OptionsEh,设置dghShowRecNo为True即可