'同步执行函数,用于导出下载excel文件
'必备参数1.e参数2.sql字符串
'可选参数1.下载的表名tablename
'----------通过创建查询表来生成table------------------
Dim e As RequestEventArgs = args(0)
Dim tb As new QueryBuilder
If e.Values.containskey("sql") Then
If e.Values.containskey("tablename") Then
tb.TableName= e.Values("tablename")
Else
tb.TableName="导出数据"
End If
tb.ConnectionName= e.Cookies("con")
tb.SelectString= e.Values("sql")
tb.Build
'----------生成EXCEL表格文件------------------
Dim tbl As Table = Tables(tb.TableName)
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet,0,0,False) '生成表头,且为多层模式
'填充数据
For c As Integer = 0 To tbl.Cols.Count - 1
For r As Integer = 0 To tbl.Rows.Count - 1
sheet(r + hdr,c).value = tbl(r,c)
Next
Next
book.PreBuild = False '非报表模请将PreBuild 属性设置为False
e.WriteBook(book,"download.xls",False)
'Book.Save("d:\web\file_download\" & tb.TableName & ".xls")
'e.WriteString("<a href='./file_download/" & tb.TableName & ".xls'" & ">下载导出文件</a>")
End If
前端测试显示效果为(preview)：
0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAg........
加好友 
发短信
Post By：2021/1/13 14:04:00 [只看该作者]
此主题相关图片如下：1.png