| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 502 人关注过本帖
标题:寻求大侠帮助(表单重复运行的问题)
只看楼主 加入收藏
scya761124
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-10-16
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:8 
寻求大侠帮助(表单重复运行的问题)
我用VFP制了多张表单,恩,每一张表单的name属性都是form1,怎样才能让表单不重复运行呀?补充:用type()函数,和wexist()检查表单时,用什么表单名呢,它们的名字都一样,只是表单文件名不一样,急急急!!!!

[ 本帖最后由 scya761124 于 2012-10-16 17:27 编辑 ]
搜索更多相关主题的帖子: 表单 
2012-10-16 17:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:5 
改NAME

坚守VFP最后的阵地
2012-10-16 18:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
CAPTION不会一样吧

坚守VFP最后的阵地
2012-10-16 18:23
scya761124
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-10-16
收藏
得分:0 
除了改表单的name,还有其它办法吗
2012-10-16 21:10
cxzbzgz
Rank: 8Rank: 8
来 自:云南楚雄
等 级:贵宾
威 望:24
帖 子:298
专家分:808
注 册:2012-6-15
收藏
得分:5 
修改表单的name,然后保存就可以!

学习交流VFP,QQ:248561326。
2012-10-16 21:32
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:5 
do form (一个个不同的表单文件名),应该不会重复运行其中的某一个表单!每一个表单的 name 属性相同或不同,与运行这个表单应该是无关的吧!
2012-10-16 21:35
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:5 
楼主能给去不改NAME的理由么?

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2012-10-16 21:43
scya761124
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-10-16
收藏
得分:0 
谢谢,只有改表单的name属性了
2012-11-16 21:06
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:0 
防止某一个表单重复运行,比方表单文件名为:表单.scx,
则runform("表单")
下面是程序代码:
FUNCTION runform( runformfilename)
LOCAL  FORMINDEX,ifrunform
ifrunform=.F.
FOR m.formindex = 1 TO _SCREEN.FORMCOUNT
    IF  JUSTSTEM(SYS(1271,_SCREEN.FORMS(m.formindex)))==runformfilename
        ifrunform=.T.
        ACTIVATE WINDOWS  (_SCREEN.FORMS(m.formindex).NAME)
        IF  _SCREEN.FORMS(m.formindex).WINDOWSTATE=1  &&窗口最小化
            _SCREEN.FORMS(m.formindex).WINDOWSTATE=0  &&窗口恢复为原样大小
        ENDIF
        EXIT
    ENDIF
ENDFOR
IF  ifrunform=.F.
    DO  FORM  &runformfilename
ENDIF
RETURN
ENDFUNC

不知是否符合?

坚持学习vfp,QQ:306805680
2012-11-16 22:42
快速回复:寻求大侠帮助(表单重复运行的问题)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017403 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved