请帮我优化一下附件中的代码.
我的目的是:如果选择"否",能够第二个MESSAGEBOX对话框,假设都选择"否"直到最后一个对话框都能够弹出,具体如附件:

do case 语句改用if语句。对每一文本框内容各用一条if语句判断

同意楼上的说法

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

谢谢各位指教

好象不太合适,比如我没有在TEXT1中输入,单击保存,提示是否输入,如果我在其中输入,单击保存,尽管其他文本框中是空的也不会有什么提示,所以不合适,能否再作指教?

llYesNo = .F.&&第一个修改