我使用安装目录里的execl报表项目，使用这个代码测试没有问题If e.Path.StartsWith("Reports\")
e.Resp
Select Case e.Path
Case "Reports\ckd.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
book.AddDataTable("出库","","Select * from {出库} where 出库单编号= 'CK-20030726001'") '添加父表
book.AddDataTable("出库明细","","Select * from {出库明细} where 出库单编号= 'CK-20030726001'") '添加子表
book.AddRelation("出库","出库单编号","出库明细","出库单编号") '建立关联
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
然后我把"出库"、"出库明细"重定向到SqlServer数据库，加上数据源测试一样没有问题
加好友 
发短信
Post By：2020/4/30 16:53:00 [显示全部帖子]
