【结贴】3158版本带有透视数据集的表格文档导出execel的问题。

mengqf

附件发不上去，分成三份，第三份

shangxy

TJ_
开头的表不存在

mengqf

再用5楼的增量导入

shangxy

导了好几遍了也不行，你看看你数据集中用到的表都导入到包中了么？

mengqf

不行就远程给看看吧，牵扯的表太多

shangxy

好吧，下午远程看看吧。869209605

shangxy

以前修改过的缺陷：
docview 导出excel时合计值为负值的时候，进入递归出不来，造成程序假死。
解决方案：
业务模型\系统空间\系统功能\公共类库\表格文档库

找到上述路径修改
static procedure TSHEETDOCLIB.CopyArea(ASrcSheet, ADstSheet: TSheet; AArea:TSheetArea; ADstCol, ADstRow:Integer; var ATailCol, ATailRow:Integer);
var
    ……
begin
   ……
=====================================
       Dec(lOutRecCount);
        //计算汇总值， 注意需要在分组输出后计算，否则分组的汇总值会出错。
    if lOutRecCount >= 0 then
           lStatistician.ProcessRecord(AArea);
        if lOutRecCount > 0 then
           lDataSet.Next;
=====================================

以上部分修改成一下内容就OK了：


        //计算汇总值， 注意需要在分组输出后计算，否则分组的汇总值会出错。
  if  lOutRecCount>0 then
    begin
       Dec(lOutRecCount);
       if lOutRecCount >= 0 then
          lStatistician.ProcessRecord(AArea);
       if lOutRecCount > 0 then
          lDataSet.Next;
     end;