Foxtable(狐表)用户栏目专家坐堂 → 移动端有没有saveEXCEL的方法


  共有3338人关注过本帖树形打印复制链接

主题:移动端有没有saveEXCEL的方法

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
移动端有没有saveEXCEL的方法  发帖心情 Post By:2018/8/1 11:52:00 [只看该作者]

如题.

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2018/8/1 13:18:00 [只看该作者]

研究一下

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2018/8/1 14:22:00 [只看该作者]

按照帮助,不用设置InLine 参数均可以下载,但是怎么无效呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/1 14:24:00 [只看该作者]

以下是引用blackzhu在2018/8/1 14:22:00的发言:
按照帮助,不用设置InLine 参数均可以下载,但是怎么无效呢?

 

无论是否设置,都是下载到客户端后打开的。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/1 14:25:00 [只看该作者]

注意:实际上除了iOS设备,其他设备不管如何设置,都会下载报表。

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2018/8/1 14:29:00 [只看该作者]

以下是引用有点甜在2018/8/1 14:25:00的发言:
注意:实际上除了iOS设备,其他设备不管如何设置,都会下载报表。

对呀,我的理解是这个参数不管设不设置,浏览器均会生成后下载的,但是没有下载呀


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2018/8/1 14:42:00 [只看该作者]

问问是不是在本地开发 不会下载?

 回到顶部
总数 25 1 2 3 下一页