以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- excel模板报表生成后被窗口遮住 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104973) |
|
-- 作者:nbsugu_z -- 发布时间:2017/8/9 14:25:00 -- excel模板报表生成后被窗口遮住 请问老师窗口调用excel模板报表生成后被窗口遮住,是什么原因 |
|
-- 作者:有点甜 -- 发布时间:2017/8/9 14:42:00 -- 可以加上代码显示出来
http://www.foxtable.com/webhelp/scr/2713.htm
|
|
-- 作者:nbsugu_z -- 发布时间:2017/8/9 14:48:00 -- 发布前是正常的,为什么发布后会出现挡住呢 |
|
-- 作者:nbsugu_z -- 发布时间:2017/8/9 15:24:00 -- Dim str As String =(" ") If InputValue(str, "提示", "请输入要打印的月份(如:1或2纯数字)") Then Dim ary() As String = str.split(",") If ary.length = 1 Then Dim Book As New XLS.Book(ProjectPath & "Attachments\\测试.xls") \'打开模板 Dim fl As String = ProjectPath & "Reports\\测试.xls" Dim Sheet As XLS.Sheet = Book.Sheets(0) Sheet(5,11).Value = "<单位 = \'单位A \' and 月份 = \'" & ary(0) & "\'>" \'写入打印条件 Book.Build() \'生成报表 Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() End If End If 开发端用目录树窗口调用此代码正常显示报表,发布后报表不在前端显示,最小化程序后才能看到,代码如何加呢
|
|
-- 作者:有点甜 -- 发布时间:2017/8/9 16:21:00 -- Dim str As String =(" ") If InputValue(str, "提示", "请输入要打印的月份(如:1或2纯数字)") Then Dim ary() As String = str.split(",") If ary.length = 1 Then Dim Book As New XLS.Book(ProjectPath & "Attachments\\测试.xls") \'打开模板 Dim fl As String = ProjectPath & "Reports\\测试.xls" Dim Sheet As XLS.Sheet = Book.Sheets(0) Sheet(5,11).Value = "<单位 = \'单位A \' and 月份 = \'" & ary(0) & "\'>" \'写入打印条件 Book.Build() \'生成报表 Book.Save(fl) Dim Proc As New Process Proc.File = fl Proc.Start() showappwindow("测试.xls", 2) End If End If |
|
-- 作者:nbsugu_z -- 发布时间:2017/8/10 8:33:00 -- 真的很奇怪,没发布前正常,发布后报表又不在屏幕前端了 |
|
-- 作者:有点甜 -- 发布时间:2017/8/10 8:54:00 -- 以下是引用nbsugu_z在2017/8/10 8:33:00的发言:
真的很奇怪,没发布前正常,发布后报表又不在屏幕前端了
1、你的窗口是不是设置成置顶了?
2、用这种方法不可以? showappwindow("测试.xls", 2)
3、单独做个例子发上来测试一下。
|
|
-- 作者:nbsugu_z -- 发布时间:2017/8/10 12:09:00 --
|
|
-- 作者:nbsugu_z -- 发布时间:2017/8/10 12:12:00 -- 但是通过foxtable原始菜单报表管理-报表-excel报表-打印表又都可以正常显示,哪应该跟excel版本没关系的了,是不是以上代码问题? |
|
-- 作者:有点甜 -- 发布时间:2017/8/10 12:22:00 -- 以下是引用nbsugu_z在2017/8/10 12:12:00的发言:
但是通过foxtable原始菜单报表管理-报表-excel报表-打印表又都可以正常显示,哪应该跟excel版本没关系的了,是不是以上代码问题?
新建一个窗口,放一个按钮,单独执行你的代码,看有没有问题。 |