【结贴】请问是否可以手工创建透视数据集的行维、项维？**

yt_wxw

if DataSetTSSJJ1=nil then
    DataSetTSSJJ1 := TPivotDataSet.Create(Self);
  DataSetTSSJJ1.Close;
  DataSetTSSJJ1.DecisionDef.DimensionDefs.Clear;
  DataSetTSSJJ1.DecisionDef.SummaryDefs.Clear;

  with DataSetTSSJJ1.DecisionDef.DimensionDefs.Add do
  begin
    TableName := 'SJJ_WZKCB';
    FieldType := TFieldType.ftString;
    FieldName := 'KF';
    Origin := 'KF';
    DisplayName := '库房';
    IsPrimaryKey := True;
    IsAgg := False;
    DimStyleDefType := TDecisionDimStyleDefType.dfRowDim;
    DimType := TDecisionDimType.dtDataDim;
    ShowSubTotal := False;
    CustomDim.FieldType := TCustomDimType.cdtString;
    BinType := TBinType.binNone;
  end;
  with DataSetTSSJJ1.DecisionDef.DimensionDefs.Add do
  begin
    TableName := 'SJJ_WZKCB';
    FieldType := TFieldType.ftString;
    FieldName := 'WPBM';
    Origin := 'WPBM';
    DisplayName := '产品';
    IsPrimaryKey := True;
    IsAgg := False;
    ShowSubTotal := False;
    CustomDim.FieldType := TCustomDimType.cdtString;
    BinType := TBinType.binNone;
    DimStyleDefType := TDecisionDimStyleDefType.dfColDim;
    DimType := TDecisionDimType.dtDataDim;
  end;
  with DataSetTSSJJ1.DecisionDef.SummaryDefs.Add do
  begin
    TableName := 'SJJ_WZKCB';
    FieldType := TFieldType.ftInteger;
    FieldName := 'ZDKCL';
    Origin := 'ZDKCL';
    DisplayName := '数量';
    IsPrimaryKey := False;
    IsAgg := False;
    SummType := TDecisionSummType.dtDataSumm;
    SummFlags := TSummFlags.sfSum;
  end;
  with DataSetTSSJJ1 do
  begin
    ShowProgressDialog := True;
    ID := 'TSSJB11';
    DisplayName := '测试透视数据集';
    Name := 'TSSJB11';
    DataSetTSSJJ1.Database.URL := 'Biz:\JUSTEPDEMOSYSTEM\JUSTEPDEMODATABASE.DATABASE';

    DecisionDef.ShowFieldName := False;
    DecisionDef.SummAreaWidth := 1;
    DecisionDef.SummAreaHeight := 1;
    DecisionDef.MaxDims := 5;
    DecisionDef.MaxSums := 10;
    DecisionDef.MaxCells := 0;
    DecisionDef.DecisionType := TDecisionType.dctCrosstab;
    DecisionDef.DatabaseURL := 'Biz:\JUSTEPDEMOSYSTEM\JUSTEPDEMODATABASE.DATABASE';
    DecisionDef.DataSetID := 'TSSJJ11';
    DecisionDef.DisplayName := #36879#35270#25968#25454#38598'1';
    DecisionDef.OriginalSQL.Text :=
      'SELECT SJJ_WZKCB.KF, SJJ_WZKCB.WPBM, SJJ_WZKCB.ZDKCL FROM SJJ_WZKCB';
    SparseRows := False;
    SparseCols := False;
  end;
  DataSetTSSJJ1.Open;
  DataSource1.DataSet := DataSetTSSJJ1;
http://bbs.justep.com/forum.php? ... light=DimensionDefs

jiahaiminghr

手工创建？

在信息中新建透视数据集，定义维和项不就是手工创建吗？

atiger

工创建透视数据集的行维、项维
支持


不知道楼主贴这段代码的意思？
是编译不过，还是运行出错？
是哪句出问题？
原始的错误信息一起贴上来看看

可以参考一下决策数据集的创建，http://bbs.justep.com/forum.php?mod=viewthread&tid=13876  15楼有个例子

yt_wxw

我的意思是代码创建，
决策数据集代码创建能够成功
但是投式数据集按照一楼的代码段运行到DataSetTSSJJ1.DecisionDef.DimensionDefs.Add则抱错，

我的版本是2819
我提供代码的意图是说的我参考的代码是你们之前提供的，但是我运行却抱错。

atiger

把原始的错误信息贴出来看看

yt_wxw

图片

lixy

TPivotDataSet在界面上放置这个控件试试，别用
if DataSetTSSJJ1=nil then
    DataSetTSSJJ1 := TPivotDataSet.Create(Self);

yt_wxw

试过了，同样问题？
请问你们那边没有重现这个问题么？

jiahaiminghr

在DataSetTSSJJ1.Close; 后面加上：
DataSetTSSJJ1.DecisionDef.BeginUpdate;
try

在 DataSetTSSJJ1.Open;前加：
  finally
    DataSetTSSJJ1.DecisionDef.EndUpdate;
  end;

yt_wxw

搞定，谢谢