试试
Dim tj As String = "id =" & e.Values("id")
Dim sql As String = "select * from {用车申请} where " & tj
Dim book As New XLS.Book("./Attachments/pcd.xls")
If e.Path.StartsWith("rep\") Then
e.ResponseEncoding = "gb2312" '这里要正确设置编码格式, 否则会乱码
Select Case e.Path
Case "rep\llck"
book.AddDataTable("用车申请", "gcsygl", sql)
book.Build()
e.WriteBookAsHTML(book)
Case Else
e.AsReportServer("rep\")
End Select
Else
Select Case e.Path
Case "hhxz" '以html方式返回下载信息
book.AddDataTable("用车申请", "gcsygl", sql)
book.Build()
Dim fl As String = "./Reports/pcd00.xls"
book.Save(fl)
Dim str As String = "报表已生成！请单击<a href = '" & fl & "'>下载</a>"
e.WriteString(str)
Case "rep2\fswj" '不要和生成网页的使用同样的前缀，前端这样访问：http://127.0.0.1:8000/rep2/fswj?id=24
book.AddDataTable("用车申请", "gcsygl", sql)
book.Build()
book.prebuild = False
e.WriteBook(book, "emp.xls", False)
End Select
End If
[此贴子已经被作者于2023/3/25 9:28:52编辑过]
加好友 
发短信
Post By：2023/3/24 8:30:00 [显示全部帖子]
