此主题相关图片如下:未命名图片.png
此主题相关图片如下:未命名图片1.png
If e.Path.StartsWith("Reports\")
e.Resp
Select Case e.Path
Case "Reports\ckd.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
e.WriteBookAsHTML(Book)
Case "Reports\jianli.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\资料卡.xls")
e.WriteBookAsHTML(Book)
Case Else
e.AsReportServer("Reports\")
End Select
End If
编译好后 在运行目录下建目录 Attachments 复制了所有文件
提示无法打开文件 office安装,文件可正常打开