以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  终端上不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147502)
--  作者：nxqtxwz
--  发布时间：2020/3/18 10:54:00
--  终端上不显示

生成的excel表在服务器端显示了，但移动端不显示是什么问题呢。

 

 

 Case "order.xls"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\信息表.xls")
        Dim fl As String = ProjectPath & "Reports\\信息表.xls"
        book.AddDataTable("职工信息总表","学校档案","Select * f  rom {职工信息总表} where 姓名 = \'王忠\'")
        Book.Build()
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
        Proc.Start()
       book.PreBuild = False
        e.WriteBook(book,"信息表.xls",False)
--  作者：有点蓝
--  发布时间：2020/3/18 11:07:00
--  

Case "order.xls"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\信息表.xls")
        book.AddDataTable("职工信息总表","学校档案","Select * f  rom {职工信息总表} where 姓名 = \'王忠\'")
        e.WriteBook(book,"信息表.xls",False)
[此贴子已经被作者于2020/3/18 11:07:13编辑过]
--  作者：nxqtxwz
--  发布时间：2020/3/18 11:46:00
--  

 用下面的代码可以生成excel文件，下载的手机打不开。

 

Case "order.xls"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\信息表.xls")
 Dim fl As String = ProjectPath & "Reports\\信息表.xls"

        book.AddDataTable("职工信息总表","学校档案","Select * fr om {职工信息总表} where 姓名 = \'王忠\'")
       \' e.WriteBook(book,"信息表.xls",False)
        Book.Build()
         Book.Save(fl)
          e.WriteFile(fl)

 

用教师您的这段代码什么也不显示

Case "order.xls"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\信息表.xls")
        book.AddDataTable("职工信息总表","学校档案","Select * f  rom {职工信息总表} where 姓名 = \'王忠\'")
        e.WriteBook(book,"信息表.xls",False)

--  作者：有点蓝
--  发布时间：2020/3/18 11:58:00
--  
手机打不开提示什么？是不是手机没有安装打开execl的应用
--  作者：nxqtxwz
--  发布时间：2020/3/18 12:10:00
--  

老师好，手机上安装了excel，但不知版本是不是符合。

在电脑上也打不开，说明不是excel的问题。 

[此贴子已经被作者于2020/3/18 12:21:01编辑过]
--  作者：有点蓝
--  发布时间：2020/3/18 13:39:00
--  
帮助这里的代码我测试没有问题：http://www.foxtable.com/mobilehelp/topics/0148.htm

上传实例测试
--  作者：nxqtxwz
--  发布时间：2020/3/18 20:07:00
--  

就这么简单的一段代码为什么就不行呢。

 

Case "order.xls"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\信息表.xls")
        Dim fl As String = ProjectPath & "Reports\\信息表.xls"
        book.AddDataTable("职工信息总表","学校档案","Select * fr  om {职工信息总表} where 姓名 = \'aaa")
        Book.Build()
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
        Proc.Start()                  \'到一行都是正常的，形成的表都正确，显示在服务器屏幕上。
        
        e.WriteBook(book,"信息表.xls",True)            \'到这就没什么动静了，手机上什么也没显示，啥原因啊。
--  作者：有点蓝
--  发布时间：2020/3/19 8:41:00
--  
Book.Build()了就不能e.WriteBook，要使用e.WriteFile。请认真看帮助的说明和用法
--  作者：nxqtxwz
--  发布时间：2020/3/24 12:29:00
--  
以下是引用有点蓝在2020/3/19 8:41:00的发言：
Book.Build()了就不能e.WriteBook，要使用e.WriteFile。请认真看帮助的说明和用法

老师，我也这么写过，就是不行啊。请老师指导。
--  作者：有点蓝
--  发布时间：2020/3/24 13:48:00
--  
上传可以测试的实例