以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]点击按钮预览报表显示的是空白的,是怎么回事儿  (http://foxtable.com/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专业版,在别的电脑上不是这个版本的软件打开就正常

 

安装一下ms office,即可。