execl函数
Dim tbn As String = args(0) 'uuid传参
Dim e As RequestEventArgs = args(1)
Dim Book As New XLS.Book(ProjectPath & "Attachments\财产收入情况申报表.xlsx")
……
book.AddRelation("填报人信息","uuid","其他财产申报","uuid") '建立关联
Book.Build() '生成细节区
e.WriteBookAsHTML(Book)
HttpRequest事件中代码如下：
If e.Path.StartsWith("Reports\")
e.Resp
Select Case e.Path
Case "Reports\ckd.htm"
Functions.Execute("excel","f9a4cb7f-2ea2-41aa-99c4-3d95bb7d04dd",e)
Case "Reports\jianli.htm"
Dim Book As New XLS.Book(ProjectPath & "Attachments\财产收入情况申报表.xlsx")
e.WriteBookAsHTML(Book)
加好友 
发短信
Post By：2022/4/21 20:30:00 [显示全部帖子]
