以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据筛选改成Excel报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170281)

--  作者:qazlinle6
--  发布时间:2021/7/20 14:42:00
--  数据筛选改成Excel报表
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt



--  作者:有点蓝
--  发布时间:2021/7/20 15:04:00
--  
参考:http://www.foxtable.com/mobilehelp/topics/0148.htm
--  作者:qazlinle6
--  发布时间:2021/7/20 15:11:00
--  
什么绑定筛选上面显示
--  作者:有点蓝
--  发布时间:2021/7/20 15:16:00
--  
一样的用法,把上面的sql放到生成报表的book.AddDataTable

book.AddDataTable("员工","数据源名称","select 年,月,店名汉字,姓名,职务店铺,职务其它,AB组,基本工资,上班天数,上班基本工资 From 工资明细表 where " & flt) 

--  作者:qazlinle6
--  发布时间:2021/7/20 15:25:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt



这样吗

--  作者:有点蓝
--  发布时间:2021/7/20 15:45:00
--  
Dim Book As New XLS.Book(ProjectPath & "Attachments\\工资条.xls")
Dim fl As String = ProjectPath & "Reports\\工资条.xls"
book.AddDataTable("工资明细表","KPRJ","select 年,月,店名汉字,姓名,职务店铺,职务其它,AB组,基本工资,上班天数,上班基本工资 From 工资明细表 where " & flt) 
Book.Build() 
Book.Save(fl)

--  作者:qazlinle6
--  发布时间:2021/7/20 15:59:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq浏览器截图20210720155823.png
图片点击可在新窗口打开查看



没显示东西

--  作者:有点蓝
--  发布时间:2021/7/20 16:22:00
--  
参考:http://www.foxtable.com/mobilehelp/topics/0148.htm
--  作者:qazlinle6
--  发布时间:2021/7/20 16:47:00
--  

        e.WriteBook(book,"工资条.xls",True)
        


只是下载表,不在网页上显示

--  作者:有点蓝
--  发布时间:2021/7/20 16:50:00
--  
那要转换为网页,参考这种:http://www.foxtable.com/mobilehelp/topics/0288.htm