以文本方式查看主题 - 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 [此贴子已经被作者于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,即可。 |