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


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

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 参数均可以下载,但是怎么无效呢?

 

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


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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)

 

我测试,没问题,你可以单独测试。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/1 14:50:00 [显示全部帖子]

以下是引用blackzhu在2018/8/1 14:42:00的发言:
问问是不是在本地开发 不会下载?

 

我就是在本地测试的。电脑浏览器里面、手机(局域网)都可以下载文件。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/1 14:55:00 [显示全部帖子]

单独做一个项目,单独测试下面代码

 

Select Case e.Path
    Case "test.htm", ""
        msgbox(123)
        Dim dt = CurrentTable.DataTable
        Dim nms() As String = {"第一列", "第二列"}
        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)
End Select


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/1 15:32:00 [显示全部帖子]

以下是引用blackzhu在2018/8/1 15:19:00的发言:
你的这个可以,是这样的 我用的是easyui 利用ajax 传递查询参数到后台,然后生成xls,这个步骤应该是没有问题,问题在于生成后不下载了.

 

参考测试代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)  '垂直排列
            .Add("btn1", "按钮").Attribute = "onclick=""document.getElementById('ifile').src='/download.htm'; alert(3)"""
        End With
        wb.InsertHTML("<iframe id='ifile' style='display:none'></iframe>")
        e.WriteString(wb.Build) '生成网页
    Case "download.htm"
        Dim dt = CurrentTable.DataTable
        Dim nms() As String = {"第一列", "第二列"}
        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)
End Select


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/2 18:09:00 [显示全部帖子]

请测试17楼代码。

 

.Add("btn1", "按钮").Attribute = "onclick=""document.getElementById('ifile').src='/download.htm?key=abc';"""


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/2 19:06:00 [显示全部帖子]

以下是引用blackzhu在2018/8/2 18:15:00的发言:
我用的是easyui框架,并且将代码写到外面的,17楼的代码可以执行,我试过了.  导出easyui框架自带的 所以没问题,但是模板打印弄不好也是问题呀

 

不明白你的意思,请具体说明问题。实例说明,不然别人无法帮你解决。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/3 10:06:00 [显示全部帖子]

做个实例发上来测试

 回到顶部
总数 12 1 2 下一页