Foxtable(狐表)用户栏目专家坐堂 → 试用版转开发版的问题


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

主题:试用版转开发版的问题

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


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

1、单独执行这段代码,有没问题?

 
Dim Book As New XLS.Book(ProjectPath & "Attachments\升班通知1.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\升班通知1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,7).Value = "<All>"
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()
 
2、如果1依旧不行,把你excel模板发上来看看
 

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


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

在命令窗口,执行这个代码,肯定是没问题的。如果有问题,把你的项目(或者导出一个表格数据)发上来测试

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\升班通知1.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\升班通知1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,7).Value = "<All>"
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

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


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

新建一个项目。

 

把你这个表格的数据导出成excel,然后导入到新的项目,然后发上来测试。


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


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

直接测试6楼代码,一点问题都没有。


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


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

打开你的项目,什么也不做,在命令窗口运行下面这段代码,生成正常报表

 

如果你的确实有问题,建议卸载重装foxtable。

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\升班通知1.xls") '打开模板

Dim fl As String = ProjectPath & "Reports\升班通知1.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,7).Value = "<All>"
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

 回到顶部