如何给dbgrid加入序号列

序号在列中居中显示

解决方案 »

  1.   

    加一个整形的计算字段
    在onCalcFields事件中赋值
    字段值:=TDrawGrid(Dbgrid1).Row
      

  2.   

    你说的是修改dbgrid组建吧，序号列在最左侧边栏显示？
    我一前试过，不难，但是效果不好。
      

  3.   

    居中显示的实现
    dbgrid.columns[i].alignment:=taCenter;
    或者在属性中进行设置 
      

  4.   

    fyje:套用你的方法，
    procedure TDM.adqFacPriceDataCalcFields(DataSet: TDataSet);
    begin
      dm.adqFacPriceData.FieldByName('cXH').AsInteger :=frmFacPriceData.DBGridEh1.Row;
    end;
    可是代码没有运行