【结帖】[请求]求个数据处理的方法。比较急。谢谢高手来看看**

zfang

完整代码形如：

var
  lParam : TBizParam;
begin
  //给参数赋值
  lParam := SystemUtils.TContextUtils.GetParam(Context,'Biz:\XMGL\DICT\YWCSZ.ParamGroup','WJLX');
  lParam.Value := '01';
  //动态修改透视数据集
  TPivotDataSet(DataSetBroker1.dataSet).Close;
  TPivotDataSet(DataSetBroker1.dataSet).DecisionDef.SQL := 'SELECT * FROM CSGZB '
     + ' WHERE CSGZB.RYID = &[Biz:\SYSTEM\ORGPARAMS.PARAMGROUP\OperatorID.Param]';
  TPivotDataSet(DataSetBroker1.dataSet).Open;

hule1234

我这里有两个参数不好写啊！麻烦了，lParam一次传两个值肯定不行

shangxy

两个参数你就定义2个lParam1: TBizParam;lParam2: TBizParam;

hule1234

Undeclared identifier "SystemUtils"    最后一个错误了。。

procedure TMainForm.btnQueryClick(Sender: TObject);
var
  lParam1: TBizParam;
  lParam2: TBizParam;
begin
  lParam1 := SystemUtils.TContextUtils.GetParam(Context,'Biz:\OPERATION\Run.ParamGroup\lyear.param','lyear');
  lParam2 := SystemUtils.TContextUtils.GetParam(Context,'Biz:\OPERATION\Run.ParamGroup\lmonth.param','lmonth');
  lParam1.Value := deDept.Text;
  lParam2.Value := DataEdit1.text;

  DataSetTotalCount.DataSet.Close;
  DataSetTotalSore.DataSet.Close;
  TPivotDataSet(DataSetTotalCount.dataSet).Close;
  TPivotDataSet(DataSetTotalCount.dataSet).DecisionDef.SQL := 'SELECT * FROM ANALYSRECORD ' + ' WHERE year =&[Biz:\OPERATION\Run.ParamGroup\lyear.param] and month =&[Biz:\OPERATION\Run.ParamGroup\lmonth.param]';
  TPivotDataSet(DataSetTotalSore.DataSet).Close;
  TPivotDataSet(DataSetTotalSore.DataSet).DecisionDef.SQL := 'SELECT * FROM ANALYSRECORD ' + ' WHERE year =&[Biz:\OPERATION\Run.ParamGroup\lyear.param] and month =&[Biz:\OPERATION\Run.ParamGroup\lmonth.param]';
  TPivotDataSet(DataSetTotalCount.dataSet).Open;
  TPivotDataSet(DataSetTotalSore.dataSet).Open;

  end;

zfang

哦，需要在功能的项目管理中引用
业务模型\系统空间\系统运行库\系统函数库。

hule1234

canot perform this operation on an open dataset
这句话报错
TPivotDataSet(DataSetTotalCount.dataSet).DecisionDef.SQL := 'SELECT * FROM ANALYSRECORD ' + ' WHERE year =&[Biz:\OPERATION\Run.ParamGroup\lyear.param] and month =&[Biz:\OPERATION\Run.ParamGroup\lmonth.param]';

hule1234

这句话有问题 lParam1 是空对象   lParam2 有内存值
  lParam1.Value := deDept.Text;  
  lParam2.Value := DataEdit1.text;
的值都是空

lParam1 := SystemUtils.TContextUtils.GetParam(Context,'Biz:\OPERATION\Run.ParamGroup\lyear.param','lyear');
  lParam2 := SystemUtils.TContextUtils.GetParam(Context,'Biz:\OPERATION\Run.ParamGroup\lmonth.param','lmonth');
  lParam1.Value := deDept.Text;
  lParam2.Value := DataEdit1.text;

zfang

canot perform this operation on an open dataset
这个错误是数据集没有打开。

zfang

这句话有问题 lParam1 是空对象   lParam2 有内存值
  lParam1.Value := deDept.Text;  
  lParam2.Value := DataEdit1.text;
的值都是空

那就要看看你给他赋的值是否有结果。
deDept.Text这个有值吗？

hule1234

结帖，非常感谢MR.zfang,shangxy, atiger
随后我发代码你们分享