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

dupit · 发表于 2009-5-7 13:00:57

with TPivotDataSet(dsbJDTJ.DataSet) do
  begin
Close;
try
DecisionDef.BeginUpdate;
InitDimensionDefs(TPivotDataSet(dsbJDTJ.DataSet),Index);
DecisionDef.SQL := tmpSQL;
finally
   DecisionDef.EndUpdate;
end;
Open;
  end;

这2种写法都报1楼错误

zfang · 发表于 2009-5-7 13:04:44

那只能用事实说话了，看我的例子（增加行维：日期）

dupit · 发表于 2009-5-7 13:06:25

你是怎么写的代码贴出来看下

zfang · 发表于 2009-5-7 13:21:22

加一个
pDataSet.DecisionDef.SummaryDefs.Clear;

dupit · 发表于 2009-5-7 13:26:57

pDataSet.DecisionDef.SummaryDefs.Clear; 加这个后项清除了不是得重新加代码生成过？

dupit · 发表于 2009-5-7 13:38:03

奇怪了加了这句 pDataSet.DecisionDef.SummaryDefs.Clear;

还是报一样的错误

zfang · 发表于 2009-5-7 13:41:54

那是当然了，你这里就是要自己重新用代码去定义了，否则怎么能实现你的需求呢。

dupit · 发表于 2009-5-11 09:56:12

做了个简单的列子

  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).Close;
  try
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 := 'TJHB';
   FieldType := TFieldType.ftString;
   FieldName := 'JHND';
   DisplayName := '计划年度';
   ShowSubTotal := False;
   IsAgg := False;
   IsPrimaryKey := True;
   BinType := TBinType.binNone;
   DimType := TDecisionDimType.dtDataDim;
   CustomDim.FieldType := TCustomDimType.cdtString;
   DimStyleDefType := TDecisionDimStyleDefType.dfRowDim
end;
with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Add do
begin
   TableName := 'TJHB';
   FieldType := TFieldType.ftString;
   FieldName := 'JHFL';
   DisplayName := '计划分类';
   ShowSubTotal := True;
   IsAgg := False;
   IsPrimaryKey := True;
   BinType := TBinType.binNone;
   DimType := TDecisionDimType.dtDataDim;
   CustomDim.FieldType := TCustomDimType.cdtString;
   DimStyleDefType := TDecisionDimStyleDefType.dfRowDim
end;
with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Add do
begin
   TableName := 'TXMB';
   FieldType := TFieldType.ftString;
   FieldName := 'BZBM';
   DisplayName := '编制部门';
   ShowSubTotal := False;
   IsAgg := False;
   IsPrimaryKey := True;
   BinType := TBinType.binNone;
   DimType := TDecisionDimType.dtDataDim;
   CustomDim.FieldType := TCustomDimType.cdtString;
   DimStyleDefType := TDecisionDimStyleDefType.dfRowDim;
end;
with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.DimensionDefs.Add do
begin
   TableName := 'TXMB';
   FieldType := TFieldType.ftString;
   FieldName := 'XMZT';
   DisplayName := '项目状态';
   ShowSubTotal := False;
   IsAgg := False;
   IsPrimaryKey := True;
   BinType := TBinType.binNone;
   DimType := TDecisionDimType.dtDataDim;
   CustomDim.FieldType := TCustomDimType.cdtString;
   DimStyleDefType := TDecisionDimStyleDefType.dfColDim;
end;
with TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.SummaryDefs.Add do
begin
   TableName := 'TXMB';
   FieldType := TFieldType.ftInteger;
   FieldName := 'XMMC';
   DisplayName := '个数';
   IsPrimaryKey := False;
   IsAgg := False;
   SummType := TDecisionSummType.dtDataSumm;
   SummFlags := TSummFlags.sfCount;
end;
  finally
TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).DecisionDef.EndUpdate;
  end;

  TPivotDataSet(DataSetBrokerTSSJJ1.DataSet).Open;

报如下错误：

zfang · 发表于 2009-5-11 09:58:01

透视数据是否有重复记录？（你加的这些维数据）
尝试加上关键字段看看。

dupit · 发表于 2009-5-11 10:11:26

数据如下：

		自动登录	找回密码
密码			立即注册