主题：窗体置顶

在AfterOpenProject事件里编写代码如下：

 

If Tables("系统设置").Current("是否提醒") = True Then
    Forms("主窗体").Open()
 Forms("提醒窗体").TopMost = True
    Forms("提醒窗体").Open()
Else
    Forms("主窗体").Open()
End If

 

运行后提醒窗体怎么不置顶呀？

 

 

想同时显示主窗体和提示窗体并且是提醒窗体置顶

 

 

 

 

 

If Tables("系统设置").Current("是否提醒") = True Then
    Forms("主窗体").Open()
    Forms("提醒窗体").Open()

    Forms("提醒窗体").TopMost = True
Else
    Forms("主窗体").Open()
End If

msgbox(Forms("提醒窗体").TopMost)

我试了好多次不行提醒窗体不置顶被主窗体覆盖了

 

试试，不行就做个例子上来

 

If Tables("系统设置").Current("是否提醒") = True Then

    msgbox(123)
    Forms("主窗体").Open()

    Forms("提醒窗体").TopMost = False
    Forms("提醒窗体").Open()

    Forms("提醒窗体").TopMost = True
Else
    Forms("主窗体").Open()
End If

原来主窗体和提醒窗体都是模式窗体不行，我将主窗体改成独立就可以了，为什么？主窗体应该是模式窗体呀！怎么解决这个问题

 

 

方法一：如果主窗体是模式窗口，那么，你必须打开提醒窗口后，才能打开主窗口。而且提醒窗口，不能是模式窗口

 

方法二：如果两个都是模式窗口，必须在主窗口的AfterLoad事件写代码打开提示窗口，才行。

我试过了两种方法都不行，只有将主窗体变为独立窗体才行呢

 实例发上来

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:登录窗体选择.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:登录窗体选择.table