- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]点击按钮预览报表显示的是空白的，是怎么回事儿 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133897)
-- 发布时间：2019/4/23 12:00:00
-- [求助]点击按钮预览报表显示的是空白的，是怎么回事儿
点击按钮预览报表显示的是空白的，是怎么回事儿
Dim sc As String = ProjectPath & "Reports\\考核互评打分表.xls"
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(sc)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("考核互评打分表",2)
Ws.PrintPreview
App.Quit
此主题相关图片如下：tim截图20190423120152.png
[此贴子已经被作者于2019/4/23 12:02:30编辑过]
-- 发布时间：2019/4/23 12:11:00
--
1、请贴出完整代码。
2、直接双击打开xls文件看是否生成正常。
3、如果xls正常，打开不正常，具体实例发上来测试。
-- 发布时间：2019/4/23 12:32:00
-- 回复：（有点甜）1、请贴出完整代码。 2、直...
双击文件打开是正常显示的
Dim mb As String = ProjectPath & "Attachments\\考核互评打分表.xls" \'指定模板文件
Dim sc As String = ProjectPath & "Reports\\考核互评打分表.xls" \'指定目标文件
Dim t0 As String = Tables("绩效_考核_月份").Current("_Identify")
Dim Book As New XLS.Book(mb)
For i As Integer = 1 To 8
Dim s1 As DataRow = DataTables("绩效_考核_统分表").Find("编号1 = "& t0 &" And 部门 = \'综合管理部\' And 序号 = "& i &"")
Book.Marks.Add(I,s1("部门自评"))
Next
For i As Integer = 9 To 16
Dim s2 As DataRow = DataTables("绩效_考核_统分表").Find("编号1 = "& t0 &" And 部门 = \'检测管理部\' And 序号 = "& i &"")
Book.Marks.Add(I,s2("部门自评"))
Next
For i As Integer = 17 To 23
Dim s3 As DataRow = DataTables("绩效_考核_统分表").Find("编号1 = "& t0 &" And 部门 = \'一室\' And 序号 = "& i &"")
Book.Marks.Add(I,s3("部门自评"))
Next
For i As Integer = 24 To 30
Dim s4 As DataRow = DataTables("绩效_考核_统分表").Find("编号1 = "& t0 &" And 部门 = \'三室\' And 序号 = "& i &"")
Book.Marks.Add(I,s4("部门自评"))
Next
For i As Integer = 31 To 37
Dim s4 As DataRow = DataTables("绩效_考核_统分表").Find("编号1 = "& t0 &" And 部门 = \'理化\' And 序号 = "& i &"")
Book.Marks.Add(I,s4("部门自评"))
Next
Book.Build()
Book.Save(sc)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(sc)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("考核互评打分表",2)
Ws.PrintPreview
App.Quit
-- 发布时间：2019/4/23 12:57:00
--
代码没问题，请上传具体实例测试。
-- 发布时间：2019/4/23 16:08:00
-- 回复：（有点甜） 代码没问题，请上传具体实例...
我用的是WPS2016专业版，在别的电脑上不是这个版本的软件打开就正常
-- 发布时间：2019/4/23 19:31:00
--
以下是引用紫色幽魂在2019/4/23 16:08:00的发言：
我用的是WPS2016专业版，在别的电脑上不是这个版本的软件打开就正常
我用的是WPS2016专业版，在别的电脑上不是这个版本的软件打开就正常
安装一下ms office，即可。