透视数据集定义SQL 报错？**

zfang

我12楼的效果例子代码，你对照看看

procedure TZXZDsqlBG.Button2Click(Sender: TObject);
begin
  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).Close;
  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.BeginUpdate;

  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Clear;
  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.SummaryDefs.Clear;

  with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Add do
  begin
    TableName := 'CSGZB';
    FieldType := TFieldType.ftString;
    FieldName := 'RYID';
    DisPlayName := '人员ID';
    IsPrimaryKey := True;
    IsAgg := False;
    DimStyleDefType := TDecisionDimStyleDefType.dfRowDim;
    DimType := TDecisionDimType.dtDataDim;
    ShowSubTotal := False;
    CustomDim.FieldType := TCustomDimType.cdtString;
    BinType := TBinType.binNone;
  end;
  with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Add do
  begin
    TableName := 'CSGZB';
    FieldType := TFieldType.ftDate;
    FieldName := 'RQ';
    DisPlayName := '日期';
    IsPrimaryKey := False;
    IsAgg := False;
    DimStyleDefType := TDecisionDimStyleDefType.dfRowDim;
    DimType := TDecisionDimType.dtDataDim;
    ShowSubTotal := False;
    CustomDim.FieldType := TCustomDimType.cdtString;
    BinType := TBinType.binNone;
  end;
  with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Add do
  begin
    TableName := 'CSGZB';
    FieldType := TFieldType.ftString;
    FieldName := 'GZLX';
    DisPlayName := '工资类型';
    IsPrimaryKey := False;
    IsAgg := False;
    DimStyleDefType := TDecisionDimStyleDefType.dfColDim;
    DimType := TDecisionDimType.dtDataDim;
    ShowSubTotal := False;
    CustomDim.FieldType := TCustomDimType.cdtString;
    BinType := TBinType.binNone;
  end;
  with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.SummaryDefs.Add do
  begin
    TableName := 'CSGZB';
    FieldType := TFieldType.ftString;
    FieldName := 'JE';
    DisPlayName := '金额';
    IsPrimaryKey := False;
    IsAgg := False;
    SummType := TDecisionSummType.dtDataSumm;
    SummFlags := TSummFlags.sfSum;
  end;

  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.EndUpdate;
  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).Open;
end;

dupit

问题已解决 结贴

zfang

你那边后来具体是什么原因呢，楼主共享下吧。