[分享]表格文档导出excel时进入死循环或者假死的问题

rzport_lq0

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;