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的属性，协助限制上限？

檢查value値。這個寫法不好，另外還有多餘動作。

与 Value 初始值和 Increment 有关。

设下初始值

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


但　　　有什么更好的写法吗？


给个提示　　　　谢谢了　　　　

看看你的畫面

首次运行



加到四行的时候



再点就这样了



放大的效果

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

    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

針對已有方案最快的解決辦法，是在微調控件的Click事件中檢測當前Value値，是上限4的時候，先查看對應對象是否存在，再決定是否創建。檢測對象是否存在的方法是：TYPE(對象名字符串)=="O"，是Object的首字母，不是零。

這種情形，就如向數據表添加記錄，當要無重覆的時候，添加之前必須檢測是否已存在相同關鍵字的記錄。道理是一樣的，很多人寫程序，依賴SQL INSERT或數據庫自身的機制，基本不知道數據的細節，故總有人不斷地問已有數據表如何檢測重覆記錄的問題，那就是添加的時候根本沒意識，事後擦屁股的功夫比當初檢測攔截還大，貪圖添加一時之快，結果治病時間更長——上帝是很公平的。

[此贴子已经被作者于2015-12-31 14:13编辑过]

其實，你這個功能根本就不應該用微調控件，我之前就指出過了。爲什麽呢？你看微調控件，它的値是可以上下調的，那麽當用戶把値往回調的時候，你的這個實施過程，會出現什麽問題、如何解決？就算你用我上面説的辦法解決了，那也是很彆扭的手法，因爲這個機制是拗邏輯的——根本就不應該存在往回調的可能性，所以這裏不能用微調控件。換句話説，問題是選用這個控件導致的。選對方案，比單純靠技術手段管用。

[此贴子已经被作者于2015-12-31 13:55编辑过]