以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动端有没有saveEXCEL的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122742)
--  作者：blackzhu
--  发布时间：2018/8/1 11:52:00
--  移动端有没有saveEXCEL的方法
如题.

是不是只有模板打印的方法?
--  作者：有点甜
--  发布时间：2018/8/1 12:34:00
--  
以下是引用blackzhu在2018/8/1 11:52:00的发言：
如题.

是不是只有模板打印的方法?

 

只能是先saveexcel保存到服务器，然后再writeFile下载到客户端。

 

如果想直接处理，你需要自行new一个book，然后给其赋值，然后再下载到客户端。

 

http://www.foxtable.com/mobilehelp/scr/0148.htm

 
--  作者：blackzhu
--  发布时间：2018/8/1 13:18:00
--  
研究一下
--  作者：blackzhu
--  发布时间：2018/8/1 13:28:00
--  
  Dim nms() As String = {"到诊时间", "客户编号", "客户姓名", "联系电话"}
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "Sele                    ct  * From Y_分诊信息  Where " & sql
        Dim dt As DataTable = cmd.ExecuteReader
        Dim Book As New XLS.Book
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For c As Integer = 0 To nms.Length - 1
                Sheet(r + 1, c).Value = dt.DataRows(r)(nms(c))
            Next
        Next
        Book.PreBuild = False \'非报表模请将PreBuild 属性设置为False
        e.WriteBook(Book, "现场咨询.xls", False)


我这样写了,但是浏览器没有下载,这个是是怎么回事?
--  作者：blackzhu
--  发布时间：2018/8/1 14:22:00
--  
按照帮助,不用设置InLine 参数均可以下载,但是怎么无效呢?
--  作者：有点甜
--  发布时间：2018/8/1 14:24:00
--  
以下是引用blackzhu在2018/8/1 14:22:00的发言：
按照帮助,不用设置InLine 参数均可以下载,但是怎么无效呢?

 

无论是否设置，都是下载到客户端后打开的。
--  作者：有点甜
--  发布时间：2018/8/1 14:25:00
--  
注意：实际上除了iOS设备，其他设备不管如何设置，都会下载报表。
--  作者：blackzhu
--  发布时间：2018/8/1 14:29:00
--  
以下是引用有点甜在2018/8/1 14:25:00的发言：
注意：实际上除了iOS设备，其他设备不管如何设置，都会下载报表。

对呀,我的理解是这个参数不管设不设置,浏览器均会生成后下载的,但是没有下载呀
--  作者：有点甜
--  发布时间：2018/8/1 14:35:00
--  
以下是引用blackzhu在2018/8/1 13:28:00的发言：
  Dim nms() As String = {"到诊时间", "客户编号", "客户姓名", "联系电话"}
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "Sele                    ct  * From Y_分诊信息  Where " & sql
        Dim dt As DataTable = cmd.ExecuteReader
        Dim Book As New XLS.Book
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For c As Integer = 0 To nms.Length - 1
                Sheet(r + 1, c).Value = dt.DataRows(r)(nms(c))
            Next
        Next
        Book.PreBuild = False \'非报表模请将PreBuild 属性设置为False
        e.WriteBook(Book, "现场咨询.xls", False)


我这样写了,但是浏览器没有下载,这个是是怎么回事?

 

e.WriteBook(Book, "现场咨询.xls", False)

 

我测试，没问题，你可以单独测试。
--  作者：blackzhu
--  发布时间：2018/8/1 14:42:00
--  
问问是不是在本地开发 不会下载?