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

dupit

Const sSQL = 'SELECT TJHB.JHND AS "计划年度",%s TJHB.JHFL AS "计划分类", '
           + 'TXMB.BZBM AS "编制部门", TXMB.XMZT AS "项目状态", '
           + 'COUNT(TXMB.XMMC) AS "个数", SUM(TXMB.JHFY) AS "计划费用", '
           + 'SUM(TXMB.JSJE) AS "结算金额"  FROM TXMB, TJHB, TJHXMQD '
           + 'WHERE TJHB.XH = TJHXMQD.JHXH and TJHXMQD.XMXH = TXMB.XH '
           + 'GROUP BY TJHB.JHND, TJHB.JHJD, TJHB.JHFL, TXMB.BZBM, TXMB.XMZT '
           + 'ORDER BY TJHB.JHND, TJHB.JHJD, TJHB.JHFL, TXMB.BZBM, TXMB.XMZT ';
       sSQL2 = ' TJHB.JHJD AS "计划季度", ';
       sSQL3 = ' TJHB.JHYD AS "计划月度", ';
var
  tmpSQL :String;
begin
  Case Index of
    0 : tmpSQL := SysUtils.Format(sSQL,['']);
    1 : tmpSQL := SysUtils.Format(sSQL,[sSQL2]);
    2 : tmpSQL := SysUtils.Format(sSQL,[sSQL3]);
  end;

  dsbJDTJ.DataSet.Close;
  TPivotDataSet(dsbJDTJ.DataSet).DecisionDef.SQL := tmpSQL ;
  dsbJDTJ.DataSet.Open;


如上代码，报下面错误：

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=28457

dupit

with TPivotDataSet(dsbJDTJ.DataSet) do
  begin
    Close;
    DecisionDef.SQL := tmpSQL;
    Open;
  end;

按这样写了 还是报上面错误，是不是SQL语句不对啊

zfang

你1楼的sql是生成后的sql而不是原始的sql语句吧？
你想通过代码控制行维列维的话，可以看看DataSetTSSJJ1.DecisionDef.DimensionDefs这个属性

dupit

能否给个具体代码。
如已经有A,B,C 3个行维了 ，想在A后面加1个D行维 ，如何写？

zfang

类似于这样子：

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;

注意要关掉数据集哦

dupit

procedure TXMZTTJDoc.InitDimensionDefs(pDataSet:TPivotDataSet;iFlag:Integer);
begin
  pDataSet.Close;
  pDataSet.DecisionDef.DimensionDefs.Clear;

  with pDataSet.DecisionDef.DimensionDefs.Add do
  begin
    TableName := tName;
    FieldType := TFieldType.ftString;
    FieldName := fName;
    Origin := fName;
    DisplayName := dName;
    ShowSubTotal := bTotal;                //是否小计

    IsAgg := False;
    IsPrimaryKey := True;
    BinType := TBinType.binNone;
    DimType := TDecisionDimType.dtDataDim;
    CustomDim.FieldType := TCustomDimType.cdtString;
    if iFlag = 0 then   //行维
      DimStyleDefType := TDecisionDimStyleDefType.dfRowDim
    else               //列维
      DimStyleDefType := TDecisionDimStyleDefType.dfColDim;
  end;
end;

如上代码，执行到第2句  还是报1楼的错误。。。

dupit

按照 http://bbs.justep.com/forum.php? ... light=DimensionDefs 这9楼的方法
：在DataSetTSSJJ1.Close; 后面加上：
DataSetTSSJJ1.DecisionDef.BeginUpdate;
try

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

在DataSetTSSJJ1.DecisionDef.EndUpdate; 这句报1楼的错误

zfang

不可能吧，我这边试了一下，没什么问题呀。
不应该报1楼的错误吧。

dupit

TPivotDataSet(dsbJDTJ.DataSet).Close;
  try
    TPivotDataSet(dsbJDTJ.DataSet).DecisionDef.BeginUpdate;
    InitDimensionDefs(TPivotDataSet(dsbJDTJ.DataSet),Index);    //初始化行维 函数
    TPivotDataSet(dsbJDTJ.DataSet).DecisionDef.SQL := tmpSQL;   
  finally
    TPivotDataSet(dsbJDTJ.DataSet).DecisionDef.EndUpdate;
  end;
  TPivotDataSet(dsbJDTJ.DataSet).Open;