分组开始脚本:
Report.ParameterByName("BoxStr").AsString = '';
Report.ParameterByName("BoxCount").AsInteger = 0;
var box =Report.FieldByName("箱号").AsInteger;
if(box>0){
var pstr = Report.ParameterByName("BoxStr"), s = pstr.AsString ;
if(('|'+s+'|').indexOf('|'+box+'|')==-1){
pstr.AsString = s+'|'+box;
var pcount = Report.ParameterByName("BoxCount");
pcount.AsInteger = pcount.AsInteger+1;
}
}