Sub selDiscount_onclick'changedim curVipif myform.selDiscount.value<>"0" thencurVip=CCur(CCur(myform.shichangjia.value)*(CSNG(myform.selDiscount.value)-5)/100)elsecurVip=1end ifmyform.vipjia.value=curVipEnd Sub上面是一個onclick()事件代碼,當selDiscount的值不為0時(這是一個Select下拉框)就為curVip變量賦值，最后將curVip變量賦值給vipjia文本框，我的程序中還有一個選項(同樣為文本框，文本框的name為huiyuanjia)，我想實現在同樣的條件下(即當selDiscount下拉框的值不為0這個條件)，同時為vipjia和huiyuanjia兩個文本框賦值，曾看到如下代碼：條件為 True 和 False 時分別運行某些語句可以使用 If...Then...Else 語句定義兩個可執行語句塊：條件為 True 時運行某一語句塊，條件為 False 時運行另一語句塊。Sub AlertUser(value)If value = 0 ThenAlertLabel.ForeColor = vbRedAlertLabel.Font.Bold = TrueAlertLabel.Font.Italic = TrueElseAlertLabel.Forecolor = vbBlackAlertLabel.Font.Bold = FalseAlertLabel.Font.Italic = FalseEnd IfEnd Sub上面的代碼就是如果value的值為0時則運行多條語句，否則運行另外幾條語句，我也想實現如上功能，我修改了一下代碼，改為如下：Sub selDiscount_onclick'changedim curVip,curhuiyuanjiaif myform.selDiscount.value<>"0" thencurVip=CCur(CCur(myform.shichangjia.value)*(CSNG(myform.selDiscount.value)-5)/100)curhuiyuanjia=CCur(CCur(myform.shichangjia.value*(CSNG(myform.selDiscount.value)/100)elsecurVip=1curhuiyuanjia=1end ifmyform.vipjia.value=curVipmyform.curhuiyuanjia.value=curhuiyuanjiaEnd Sub但運行時卻不行，什么反應都沒有了，而最上面的那條語句就可以正常運行，想來想去的還是想不出解法，希望得到大家的指點，正確的寫法如何寫呢？我的意思應該能看的懂吧，就是myform.selDiscount.value<>"0"這個條件成立時則同時修改vipjia和curhuiyuanjia兩個文本框的值，就這個意思。先在這兒謝謝大家了。希望大家回復前最好能在本機測試一下，這是客戶端代碼，測試環境應該沒問題。不行，curhuiyuanjia=CCur(CCur(myform.shichangjia.value)*(CSNG(myform.selDiscount.value)/100))這樣不行，好象只能運行一條語句，即if myform.selDiscount.value<>"0" thencurVip=CCur(CCur(myform.shichangjia.value)*(CSNG(myform.selDiscount.value)-5)/100)這里的then后面只能運行一條語句。