【搞定】报表导出没有数据

lml

在运行调试和正式运行情况下，点查询后报表数据都有。
点击导出后，只能导出报表的相关样式和默认文字等，但数据集里的数据没有显示

我用的是标准查询数据集
代码：
procedure TXSRB.Button2Click(Sender: TObject);
var
   lExcelExp: TExcelExporter;
   lOpenDialog: TOpenDialog;
   lDstSheet: TSheet;
   //lDocView: TDocView;

begin
      lOpenDialog := TSaveDialog.Create(nil);
      lOpenDialog.Filter := 'Microsoft Excel Workbook(*.xls)|*.xls|All files (*.*)|*.*';
      if lOpenDialog.Execute then
      begin
          if lOpenDialog.FileName<>'' then
          begin
               try
                    lDstSheet := TSheetDoc(DocView1.Doc).Sheet;
                    lExcelExp := TExcelExporter.Create(lDstSheet);
                    lExcelExp.ExportToFile(lOpenDialog.FileName);
                    //jsDialogs.ShowMsg('导出成功!','数据导出');

               finally
                    lDstSheet.Free;
                    lExcelExp.Free;
               end;
          end;
      end;
end;

附件为生成的文件，但没有数据，页面显示是有数据，导出后没有数据

zfang

请楼主参考
http://bbs.justep.com/forum.php? ... BC%B3%F6%B5%BDExcel

用系统空间--系统功能--公共类库--表格文档库下的
CopySheetToExcel

lml

搞定，结贴  :2guns: