【搞定】含有累计数据的报表！**

zwjcooldd

图1

zwjcooldd

我想和图一那样， 每次改变日期的时候，累计的条件是 年份相同，月份<=所选日期的月份。
我是这么做的，对于累计我用了一个标准数据集查询所有的字段，然后对每个字段再对应一个累计 使用了数据集的‘参数’属性定义了 “统计年‘和“统计月”参数，到时候给这两个参数赋值来过滤。对累计字段用sun（）函数。累计数据集的条件是：
月份用电情况统计表.填报单位 = :月份用电情况统计表.填报单位1 and 月份用电情况统计表.统计年 = :月份用电情况统计表.统计年1 and 月份用电情况统计表.统计月 <= :月份用电情况统计表.统计月1
。但是现在看来，做出来的效果是：对日期选择后，累计不能刷新，当把鼠标每放进累计的一个字段中时候，才出现一个数据！

zwjcooldd

我的想法是，改变日期的时候，累计要随之改变，即使当前所选责的月份没有数据，统计的是<=所选月份的数据

zwjcooldd

procedure TNHJJJZBXX.filterDataSetYFYDQKLJ(tbdw,tjn,tjy:string);
// var whereStr:string;
  begin
       DataSetYFYDQKLJ.Close;
      DataSetYFYDQKLJ.Params[0].asString:=tbdw;
      DataSetYFYDQKLJ.Params[1].asString:=tjn;
      DataSetYFYDQKLJ.Params[2].asString:=tjy;
      DataSetYFYDQKLJ.Open;
      DataSetYFYDQKLJ.refresh;
  end;

procedure TNHJJJZBXX.InfoCreate(Sender: TObject);
var tbdw,tjn,tjy:string ;
var param:TBizParam;
bizURL:TBizURL;
begin
bizURL:=TBizURL.Create;
try
  bizURL.URL:='Biz:\BGZDHXT\YWCSZ1.ParamGroup';
  param:=SystemUtils.TContextUtils.GetParam(Context,bizURL,'TBDW');
  tbdw:=Variants.VarToStr(param.value);
finally
   bizURL.Free;
end;
tjn:=Business.System.SysUtils.IntToStr(DateUtils.YearOf(Business.Data.SysSrv.SysService.Time));
tjy:=Business.System.SysUtils.IntToStr(DateUtils.Monthof(Business.Data.SysSrv.SysService.Time));

filterDataSetYFYDQKLJ(tbdw,tjn,tjy);
end;//初始化参数

procedure TNHJJJZBXX.FIELD_YFYDQKTJSSJ_TJSJExit(Sender: TDataField);
var tbdw,tjn,tjy:string;
begin


       tbdw:=DataSetYFYDQKTJSSJ.FieldByName('tbdw').AsString;
       tjn:=SysUtils.IntToStr(DateUtils.YearOf(Sender.AsDateTime));

       tjy:=SysUtils.IntToStr(DateUtils.MonthOf(sender.AsDateTime));
     //if Business.System.SysUtils.SameText(Field.fieldName,'') then
     filterDataSetYFYDQKLJ(tbdw,tjn,tjy);//过滤累计

     //
      DataSetYFYDQKTJSSJ.SQLFilter:='  tbdw='''+DataSetYFYDTJGL.fieldByName('tbdw').asString + ''' and tjn='''+tjn+''' and tjy='''+tjy+'''';
      DataSetYFYDQKTJSSJ.SQLFiltered:=true;//过滤本月

end;//我在焦点退出时间后，对累计和本月数据进行过滤
。

atiger

呵呵，描述的还真多，但看的有点糊涂。想跟你确认一下

atiger

补充5楼
1、5楼的代码，贴出来啥意思？你设置断点跟踪了吗？按你的要求在执行吗？如果没有跟踪，请跟踪一下

2、 3楼说 “改变日期的时候，累计要随之改变，即使当前所选责的月份没有数据，统计的是<=所选月份的数据”这是5楼代码执行后的效果马？

3、那2楼呢？“  但是现在看来，做出来的效果是：对日期选择后，累计不能刷新，当把鼠标每放进累计的一个字段中时候，才出现一个数据！”也是5楼执行代码后的效果？

zwjcooldd

我的想法是：当改变时间字段的使用 累计 和本月 都要随着改变。 并且累计的是<=所选月份。 无论是对 图a中时间的选择，还是对图B中时间的选择都要达到这个效果！

zwjcooldd

图B

zwjcooldd

BRP

lixy

按你的思路我做了个例子，好像没问题