| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1038 人关注过本帖
标题:请教:IF问题
只看楼主 加入收藏
excel2007
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-3-18
结帖率:77.27%
收藏
 问题点数:0 回复次数:6 
请教:IF问题
请帮我优化一下附件中的代码.
我的目的是:如果选择"否",能够第二个MESSAGEBOX对话框,假设都选择"否"直到最后一个对话框都能够弹出,具体如附件:

新建文件夹.rar (2.31 KB)
搜索更多相关主题的帖子: 附件 能够 对话框 
2008-11-15 10:34
ibmlang_002
Rank: 5Rank: 5
来 自:浙江-嘉兴
等 级:贵宾
威 望:18
帖 子:437
专家分:176
注 册:2008-8-30
收藏
得分:0 
do case 语句改用if语句。对每一文本框内容各用一条if语句判断

VFP
2008-11-15 11:38
dongfengxile
Rank: 1
来 自:山西-太原
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-11-15
收藏
得分:0 
同意楼上的说法
2008-11-15 22:07
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
A=THISFORM.TExt1.VALUE
B=THISFORM.TExt2.VALUE
C=THISFORM.TExt3.VALUE
D=THISFORM.TExt4.VALUE
E=THISFORM.TExt5.VALUE
llYesNo = .T.
IF EMPTY(A)
    A=MESSAGEBOX("操作员代码"+CHR(13)+"是否填入?",4+32,"请问")
    IF A=6
        llYesNo = .T.
        THISFORM.Text1.SETFOCUS()
    ELSE
        llYesNo= .F.
    ENDIF
ENDIF
IF EMPTY(B) AND llYesNo = .F.
    A=MESSAGEBOX("操作员姓名"+CHR(13)+"是否填入?",4+32,"请问")
    IF A=6
        llYesNo= .T.
        THISFORM.Text2.SETFOCUS()
    ELSE
        llYesNo= .F.
    ENDIF
ENDIF
IF EMPTY(C) AND llYesNo = .F.
    A=MESSAGEBOX("口令"+CHR(13)+"是否填入?",4+32,"请问")
    IF A=6
        llYesNo= .T.
        THISFORM.Text3.SETFOCUS()
    ELSE
        llYesNo= .F.
    ENDIF
ENDIF
IF EMPTY(D) AND llYesNo = .F.
    A=MESSAGEBOX("电话"+CHR(13)+"是否填入?",4+32,"请问")
    IF A=6
        llYesNo= .T.
        THISFORM.Text4.SETFOCUS()
    ELSE
        llYesNo= .F.
    ENDIF
ENDIF
IF EMPTY(E) AND llYesNo = .F.
    A=MESSAGEBOX("单位"+CHR(13)+"是否填入?",4+32,"请问")
    IF A=6
        llYesNo= .T.
        THISFORM.Text5.SETFOCUS()
    ELSE
        llYesNo= .F.
    ENDIF
ENDIF

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-11-15 22:47
excel2007
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-3-18
收藏
得分:0 
谢谢各位指教
2008-11-20 10:55
excel2007
Rank: 1
等 级:新手上路
帖 子:163
专家分:0
注 册:2008-3-18
收藏
得分:0 
[bo][un]Tiger5392[/un] 在 2008-11-15 22:47 的发言:[/bo]

A=THISFORM.TExt1.VALUE
B=THISFORM.TExt2.VALUE
C=THISFORM.TExt3.VALUE
D=THISFORM.TExt4.VALUE
E=THISFORM.TExt5.VALUE
llYesNo = .T.
IF EMPTY(A)
    A=MESSAGEBOX("操作员代码"+CHR(13)+"是否填入?",4 ...

好象不太合适,比如我没有在TEXT1中输入,单击保存,提示是否输入,如果我在其中输入,单击保存,尽管其他文本框中是空的也不会有什么提示,所以不合适,能否再作指教?
2008-11-20 11:05
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
llYesNo = .F.&&第一个修改

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2008-11-20 11:13
快速回复:请教:IF问题
数据加载中...
 
   



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

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