datareport 中“导出”的问题

Question

使用第三方报控件.如 ActiveReport .

Answer 1

'在datareport show 以前 
DataReport1.ExportFormats.Clear'在datareport 设计器的代码中：
Private Sub DataReport_Error(ByVal JobType As MSDataReportLib.AsyncTypeConstants, ByVal Cookie As Long, ByVal ErrObj As MSDataReportLib.RptError, ShowError As Boolean)
Select Case ErrObj.ErrorNumber
    Case rptErrExportFormatsEmpty   '8506,模板集合为空
        ShowError = False
        ExportToTxt
        
    Case rptErrInvalidTemplate  '8516,模板无效
        ShowError = False
End Select
End Sub

Answer 2

对不起，上面的exportToTxt是我自己自定义的导出过程，你可以去掉