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


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

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

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


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
试用版转开发版的问题  发帖心情 Post By:2017/12/6 12:10:00 [只看该作者]

我的试用版转开发版后,有一个报表运行后,总是空的,没有数据显示?
专家看看有什么问题,代码如下:
DataTables("课程表").Save()
DataTables("学习记录").Save()
DataTables("课程记录").Load


Dim xh1 As String
Dim xz As Boolean
xh1=Tables("课程表").Current("序号") 
xz=Tables("课程表").Current("选择") 
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 = "<序号 = '" & xh1 & "' and 选择 = false>"
Book.Build() '生成报表
Book.Save(fl) 
Dim Proc As New Process 
Proc.File = fl
Proc.Start()

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "\Attachments\升班通知1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
     '设置页眉
    .LeftHeader = "打印日期: &D" '左页眉,&D表示日期
    .CenterHeader = "&""隶书,常规""&20 数据分析表"   '中页眉,并将字体设置为隶书和20号字大小
    .RightHeader = "打印者: " & App.UserName '右页眉
    '设置页脚
    .LeftFooter = "文件: &F  &A" '左页脚,&F表示文件名,&A表示工作表名
    .CenterFooter = ""   '中页脚为空
    .RightFooter = "第 &P 页  共 &N 页"  '右页脚
    '打印模式
    .Orientation = MSExcel.xlPageOrientation.xlPortrait  '纵向打印
    .Orientation = MSExcel.xlPageOrientation.xlLandscape '横向打印
    .PrintHeadings = True'打印行号和列标
    .PrintGridlines = True   '打印网格线
    '缩放打印
    .Zoom = False'以下设置将缩印在一页内
    .FitToPagesWide = 1  '按照1页的宽度打印
    .FitToPagesTall = 1  '按照1页的高度打印
End With
App.Visible = True
Ws.PrintPreview
App.Quit

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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模板发上来看看
 

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


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
  发帖心情 Post By:2017/12/6 14:55:00 [只看该作者]

单独也不行
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:升班通知1.xls


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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/6 16:07:00 [只看该作者]

我用2楼的代码测试3楼的模板没有问题的。

DataTables("课程记录").Load加载后课程记录表有没有数据啊。

另外1楼的代码是先生成报表再更改模板的页眉等等东西。报表已经生成再改模板有啥用呢?

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


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
  发帖心情 Post By:2017/12/6 17:32:00 [只看该作者]

转开发版后出现很多莫名其妙的问题,原来在试用版是没有问题的。
DataTables("课程记录").Load加载后课程记录表有数据

图片点击可在新窗口打开查看此主题相关图片如下:360截图20171206172430890.jpg
图片点击可在新窗口打开查看



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

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


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
  发帖心情 Post By:2017/12/6 17:45:00 [只看该作者]

项目9M无法添加上传附件,是不是有限制?


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


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

新建一个项目。

 

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


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


加好友 发短信
等级:幼狐 帖子:133 积分:1453 威望:0 精华:0 注册:2015/6/15 14:05:00
  发帖心情 Post By:2017/12/6 18:11:00 [只看该作者]

我删除了一部分,打包传给你,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:翰文开发版.zip


图片点击可在新窗口打开查看此主题相关图片如下:360截图20171206180319012.jpg
图片点击可在新窗口打开查看
开发者密码:djt888


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


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

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


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