Delphi中cxdbpivotgrid组件如何获取记录数？

以下是几种可行的实现方式，可根据需求选择：

方法1：基于数据集字段（对应原始记录号，推荐） #

如果数据集（如TADOQuery、TClientDataSet）无现成记录编号字段，可添加计算字段绑定原始记录号：

• 打开数据集的字段编辑器，右键选择「New Field」
• 设置字段名称为RecNo，类型选Integer，字段类型选择Calculated
• 在数据集的OnCalcFields事件中编写计算逻辑：

  procedure TYourForm.YourDataSetCalcFields(DataSet: TDataSet);
  begin
    DataSet.FieldByName('RecNo').AsInteger := DataSet.RecNo;
  end;
  

• 在cxDBPivotGrid中添加RecNo字段列，设置Visible属性为True，即可显示原始记录编号。

若数据集本身已有自增ID或记录号字段，直接添加对应DB字段到网格即可。

方法2：自定义绘制显示网格行号（仅当前网格行序） #

如果只需显示网格当前行序号（分页、分组后会重新计数），可通过自定义绘制实现：

• 绑定cxDBPivotGrid的OnCustomDrawCell事件：

  procedure TYourForm.cxDBPivotGrid1CustomDrawCell(Sender: TcxCustomPivotGrid;
    ACanvas: TcxCanvas; AViewInfo: TcxPivotGridCellViewInfo; var ADone: Boolean);
  var
    RowSeq: Integer;
  begin
    // 针对行头第一列绘制行号
    if AViewInfo.Column.IsRowHeader and (AViewInfo.Column.Index = 0) then
    begin
      RowSeq := AViewInfo.Row.Index + 1; // 从1开始计数
      ACanvas.DrawText(IntToStr(RowSeq), AViewInfo.Bounds, cxAlignCenter);
      ADone := True; // 覆盖默认绘制内容
    end;
  end;
  

方法3：通过DataController获取原始记录号（交互场景用） #

若需在用户点击单元格时查看对应原始记录编号，可通过DataController定位：

• 绑定cxDBPivotGrid的OnCellClick事件：

  procedure TYourForm.cxDBPivotGrid1CellClick(Sender: TcxCustomPivotGrid;
    ACellViewInfo: TcxPivotGridCellViewInfo);
  var
    DataRecIdx: Integer;
    TargetDataSet: TDataSet;
  begin
    DataRecIdx := ACellViewInfo.DataRecordIndex;
    if DataRecIdx <> -1 then
    begin
      TargetDataSet := cxDBPivotGrid1.DataController.DataSource.DataSet;
      // 定位到对应原始记录
      TargetDataSet.RecNo := cxDBPivotGrid1.DataController.GetRecordIndex(DataRecIdx);
      ShowMessage('原始记录编号：' + IntToStr(TargetDataSet.RecNo));
    end;
  end;
  

内容的提问来源于stack exchange，提问作者Amine Bendib