如标题

在你调用表单并运行它的时候，就知道是否已经打开，自己在做什么事，还要问别人？

是呀 你要问什么

if Wexist('lookXjinvoice')=.T.

lookXjinvoice是表单的name属性值。

怎么设置表单为模式状态？

不是告诉你了吗
在表单的属性窗口中设置
WINDOWTYPE=1
有问的时间，把表单及其它控件的属性看一遍，不就有印象了吗


[ 本帖最后由 sdta 于 2013-2-14 16:34 编辑 ]

我设置了，可是运行后还是没什么效果。

你需要什么效果？模式表单只是不能同时操作其他表单。

我想要的就是这效果。可是我将WINDOWTYPE=1结果其他表单还是可以用

*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="培训管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
   =MESSAGEBOX("程序已经运行了",48,"提示信息")
   QUIT
ENDIF
_Screen.Caption=lpWindowName