专家坐堂-excel模板报表生成后被窗口遮住Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excel模板报表生成后被窗口遮住  (http://foxtable.net/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
--

Select Case e.Node.Name
Case "打印"
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
end select

以上方法目录树节点代码打印或显示用，但是发布在安装有 excel 2007系统电脑上是可以的，但是发布在excel2003 会被主窗口挡住。

--  作者：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版本没关系的了，是不是以上代码问题？

新建一个窗口，放一个按钮，单独执行你的代码，看有没有问题。