Dim RKGUID As String = e.Values("RKGUID")
If RKGUID > "" Then
Dim Book As New XLS.Book(ProjectPath & "Attachments\入库单.xls")
Book.AddDataTable("产品入库", "服务器", "Se lect * from 产品入库 where GUID='" & RKGUID & "'") '添加父表入库
Book.AddDataTable("产品入库明细", "服务器", "Sel ect * from 产品入库明细 where 入库ID='" & RKGUID & "'") '添加子表
Book.AddRelation("产品入库", "GUID", "产品入库明细", "入库ID") '建立关联
e.WriteBook(Book, "入库单.xls", False)
e.WriteString("打印模板下载成功")
End If
这个报表我递交以后并没有下载是什么原因? e.WriteString("打印模板下载成功") 已经返回到前端了