PROCEDURE howManyLine.upClick
        IF thisform.howManyLine.value<=4
*!*                MESSAGEBOX("１单内最多只能有４项材料入账",64,"操作提示！")
*!*            ELSE
            clflCbxNum="clflCbx"+ALLTRIM(STR(thisform.howManyLine.value))
            clmcCbxNum="clmcCbx"+ALLTRIM(STR(thisform.howManyLine.value))
            jldwCbxNum="jldwCbx"+ALLTRIM(STR(thisform.howManyLine.value))
            ssslTxtNum="ssslTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            grdjTxtNum="grdjTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            grjeTxtNum="grjeTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            bzdjTxtNum="bzdjTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            bzjeTxtNum="bzjeTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            cjTxtNum="cjTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            bgddCbxNum="bgddCbx"+ALLTRIM(STR(thisform.howManyLine.value))
           
            thisform.addobject('&clflCbxNum','comboBox')
            thisform.addobject('&clmcCbxNum','comboBox')
            thisform.addobject('&jldwCbxNum','comboBox')
            thisform.addobject('&ssslTxtNum','textBox')
            thisform.addobject('&grdjTxtNum','textBox')
            thisform.addobject('&grjeTxtNum','textBox')
            thisform.addobject('&bzdjTxtNum','textBox')
            thisform.addobject('&bzjeTxtNum','textBox')
            thisform.addobject('&cjTxtNum','textBox')
            thisform.addobject('&bgddCbxNum','comboBox')
           
            Thisform.Arrange
        ELSE
            MESSAGEBOX("１单内最多只能有４项材料入账",64,"操作提示！")       
        ENDIF
    ENDPROC 

上限是4，已经是4的时候，再点一下，提示同名类，为什么不转到ELSE呢？

还是需要另设一个FORM的属性，协助限制上限？

现在的事实是，这个写法肯定不好，因为在微调达到上限时，还可以继续点


但　　　有什么更好的写法吗？


给个提示　　　　谢谢了　　　　

首次运行



加到四行的时候



再点就这样了



放大的效果

用了另外一个表单的自定义属性　　解决了　

    PROCEDURE howManyLine.upClick &&rtnMainBtn.click
        IF thisform.currLine<4
            clflCbxNum="clflCbx"+ALLTRIM(STR(thisform.howManyLine.value))
            clmcCbxNum="clmcCbx"+ALLTRIM(STR(thisform.howManyLine.value))
            jldwCbxNum="jldwCbx"+ALLTRIM(STR(thisform.howManyLine.value))
            ssslTxtNum="ssslTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            grdjTxtNum="grdjTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            grjeTxtNum="grjeTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            bzdjTxtNum="bzdjTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            bzjeTxtNum="bzjeTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            cjTxtNum="cjTxt"+ALLTRIM(STR(thisform.howManyLine.value))
            bgddCbxNum="bgddCbx"+ALLTRIM(STR(thisform.howManyLine.value))
           
            thisform.addobject('&clflCbxNum','comboBox')
            thisform.addobject('&clmcCbxNum','comboBox')
            thisform.addobject('&jldwCbxNum','comboBox')
            thisform.addobject('&ssslTxtNum','textBox')
            thisform.addobject('&grdjTxtNum','textBox')
            thisform.addobject('&grjeTxtNum','textBox')
            thisform.addobject('&bzdjTxtNum','textBox')
            thisform.addobject('&bzjeTxtNum','textBox')
            thisform.addobject('&cjTxtNum','textBox')
            thisform.addobject('&bgddCbxNum','comboBox')
           
            Thisform.Arrange
        ELSE
            MESSAGEBOX("１单内最多只能有４项材料入账",64,"操作提示！")       
        ENDIF
    ENDPROC 

    PROCEDURE Arrange
略       
        WITH this.rtnMainBtn
            .top=this.line4.top+this.line4.height+5*this.formZoom
            .left=this.bgddTitle.left+this.bgddTitle.width/2-.width/2
            .height=25*this.formZoom
            .width=36*this.formZoom
            .fontSize=thisform.fontReSize(.name,.height,.width,9,3)
        ENDWITH       
       
        this.height=this.rtnMainBtn.top+this.rtnMainBtn.height+4*this.formZoom
       
        this.currLine=this.howManyLine.value
       
略
       
    ENDPROC

检测对象是否存在的方法　　　是我正想问的　　　还没想好怎么开口问　　　你就抢答了　　　哈哈

我也觉得重复代码太多了

进一步会用容器　　不过　　只是有概念　　做起来　　肯定又要问题重重