如何判断表单是否打开

?type(你的表单名)="O"  && Open首字符

请参考：http://bbs.

少了""
?type("你的表单名")="O"

用WEXIST（）函数检测窗口是否存在。下面是帮助文件中的内容：

检测所指定的用户自定义窗口是否存在。

 
WEXIST(WindowName)
 

参数
WindowName

指定用户自定义窗口的名称。也可以指定 Visual FoxPro 系统窗口的名称(如“命令”窗口、“数据工作期”窗口、“浏览”窗口等)，在 Visual FoxPro 中，还可以指定工具栏的名称。如果所指定的系统窗口或工具栏可见或隐藏，则 WEXIST( ) 函数返回“真”(.T.)。如果所指定的系统窗口或工具栏已关闭，则返回“假”(.F.)。“命令”窗口和“调试”窗口是两个例外。在 WEXIST( ) 中包含“命令”窗口 的名称时，总是返回“真”(.T.)。如果曾经打开过“调试”窗口，即使被关闭，WEXIST( ) 函数仍返回“真”(.T.)。
返回值
逻辑型

说明
如果所指定的用户自定义窗口已经用 DEFINE WINDOW 命令创建，则 WEXIST( ) 函数返回“真”(.T.)；否则 WEXIST( ) 返回“假”(.

*!*    自定义函数isrunform，判断某一个表单是否运行
*!*    用法：?isrunform("myform1")
*!*    如果运行，则显示.t.，如果没有运行，则显示.f.
FUNCTION isrunform( runformfilename)
ifrunform=.F.
FOR m.formindex = 1 TO _SCREEN.FORMCOUNT
    IF  JUSTSTEM(SYS(1271,_SCREEN.FORMS(m.formindex)))==runformfilename
        ifrunform=.T.
        EXIT
    ENDIF
ENDFOR
RETURN  ifrunform
ENDFUNC

收到的鲜花

• qjbzjp 于 2012-11-27 15:13 送鲜花  10朵   附言：好文章

留足，需要时好找些。谢

刚找到一个测试成功，与大家分享一下：
do RunForm with "表单名","表单引用名"

*cFormName 表单的文件名；mFormName 表单引用名；cPublic 表单名的全局宏替换公式*

 Function runform                       
    Para cFormName,mFormName
    cPublic="Public "+mFormName
    &cPublic
    If !(Type("&mFormName.")="O" and !Isnull(&mFormName.))
        Do Form &cFormName Name &mFormName
    Else
        If &mFormName..WindowState=1
            &mFormName..WindowState=0
        Endif
        &mFormName..Show
    ENDIF
ENDFUNC