主题：excel模板报表生成后被窗口遮住

请问老师窗口调用excel模板报表生成后被窗口遮住，是什么原因

可以加上代码显示出来

 

http://www.foxtable.com/webhelp/scr/2713.htm

 

发布前是正常的，为什么发布后会出现挡住呢

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

真的很奇怪，没发布前正常，发布后报表又不在屏幕前端了

 

1、你的窗口是不是设置成置顶了？

 

2、用这种方法不可以？ showappwindow("测试.xls", 2)

 

3、单独做个例子发上来测试一下。

 

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 会被主窗口挡住。

但是通过foxtable原始菜单报表管理-报表-excel报表-打印表又都可以正常显示，哪应该跟excel版本没关系的了，是不是以上代码问题？

 

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