求大佬給看一下-有解無憂

代碼如下
Private Sub Command1_Click()
If Combo1.Text = "病斑大而少，呈梭形條斑，灰褐至桔黃色，無輪紋" And Combo2.Text = "無現象" And Combo3.Text = "無現象" Then
Combo4.Text = "大斑病"
End If
End Sub
前三個條件都是通過下拉串列框選的

uj5u.com熱心網友回復：

我點命令按鈕，comboBox4 無反應

uj5u.com熱心網友回復：

如果“沒反應”，那只能說明：
　　你的Combo1到Combo3，肯定有一個的文本內容與給定的不相符。

看你這“樣式”，前面3個“表征”只能從給定的一些專案中選擇、不能任意輸入的吧！
如果是這樣，建議你視窗設計時把這些“下拉串列控制元件”的Style屬性設定為 2 - Dropdown 。
然后，進行“判斷”那兒，按 ListIndex進行判斷，不必用Text來判斷。

比如：

Private Sub Command1_Click()

   If Combo1.ListIndex = 1 And Combo2.ListIndex = 0 And Combo3.ListIndex = 0 Then

      'Combo4.Text = "大斑病"

      Combo4.ListIndex = 2    ' 第3項："大斑病"

   End If

End Sub

下拉串列的 ListIndex是從0開始的，第1項ListIndex =0；第2項ListIndex =1 ；…………
上面代碼中，我給的 ListIndex值只是“示意”，你要按你的實際情況來選擇。
讀取 ListIndex屬性值，可以判斷“選擇了哪項”，在“沒有選擇項”時，ListIndex = -1；
設定 ListIndex屬性值，則表示選擇某項，
　　若設定為 -1 ，則表示“不選”，控制元件上“顯示文本”那兒會變成空白的。

并且：
按我說的更改 Style屬性后，你要用 Text內容來判斷，也照樣可以用；
要“選定某項”，也可以用“文本賦值”的方式來操作。
比如：　Combo4.Text = "大斑病"
這樣寫也是可以的，但要求是Combo4中必須有某項為“大斑病”，否則會產生運行錯誤。

uj5u.com熱心網友回復：

判斷，盡量不要用字串進行判斷。
如果你這是作業題或者是小的試驗專案，逐個字去檢查有沒有錯。
如果你要做真實的專案，每個癥狀都在資料庫里用代碼表示，每個代碼再去對照相應的文字，包括你的判斷都用代碼判斷，甚至判斷的規則也做成配置的。
這樣，文字的調整、判斷規則的調整等等都只需要調整資料，不需要調整代碼。

uj5u.com熱心網友回復：

參考 2 樓舉杯邀明月的回復:

如果“沒反應”，那只能說明：
　　你的Combo1到Combo3，肯定有一個的文本內容與給定的不相符。

看你這“樣式”，前面3個“表征”只能從給定的一些專案中選擇、不能任意輸入的吧！
如果是這樣，建議你視窗設計時把這些“下拉串列控制元件”的Style屬性設定為 2 - Dropdown 。
然后，進行“判斷”那兒，按 ListIndex進行判斷，不必用Text來判斷。

比如：
Private Sub Command1_Click()

   If Combo1.ListIndex = 1 And Combo2.ListIndex = 0 And Combo3.ListIndex = 0 Then

      'Combo4.Text = "大斑病"

      Combo4.ListIndex = 2    ' 第3項："大斑病"

   End If

End Sub
下拉串列的 ListIndex是從0開始的，第1項ListIndex =0；第2項ListIndex =1 ；…………
上面代碼中，我給的 ListIndex值只是“示意”，你要按你的實際情況來選擇。
讀取 ListIndex屬性值，可以判斷“選擇了哪項”，在“沒有選擇項”時，ListIndex = -1；
設定 ListIndex屬性值，則表示選擇某項，
　　若設定為 -1 ，則表示“不選”，控制元件上“顯示文本”那兒會變成空白的。

并且：
按我說的更改 Style屬性后，你要用 Text內容來判斷，也照樣可以用；
要“選定某項”，也可以用“文本賦值”的方式來操作。
比如：　Combo4.Text = "大斑病"
這樣寫也是可以的，但要求是Combo4中必須有某項為“大斑病”，否則會產生運行錯誤。

謝謝了還有一個小時交作業，從昨晚糾結到現在。非常感謝！

uj5u.com熱心網友回復：

參考 4 樓 qq_41274591 的回復:

Quote: 參考 2 樓舉杯邀明月的回復:
如果“沒反應”，那只能說明：
　　你的Combo1到Combo3，肯定有一個的文本內容與給定的不相符。

看你這“樣式”，前面3個“表征”只能從給定的一些專案中選擇、不能任意輸入的吧！
如果是這樣，建議你視窗設計時把這些“下拉串列控制元件”的Style屬性設定為 2 - Dropdown 。
然后，進行“判斷”那兒，按 ListIndex進行判斷，不必用Text來判斷。

比如：
Private Sub Command1_Click()

   If Combo1.ListIndex = 1 And Combo2.ListIndex = 0 And Combo3.ListIndex = 0 Then

      'Combo4.Text = "大斑病"

      Combo4.ListIndex = 2    ' 第3項："大斑病"

   End If

End Sub
下拉串列的 ListIndex是從0開始的，第1項ListIndex =0；第2項ListIndex =1 ；…………
上面代碼中，我給的 ListIndex值只是“示意”，你要按你的實際情況來選擇。
讀取 ListIndex屬性值，可以判斷“選擇了哪項”，在“沒有選擇項”時，ListIndex = -1；
設定 ListIndex屬性值，則表示選擇某項，
　　若設定為 -1 ，則表示“不選”，控制元件上“顯示文本”那兒會變成空白的。

并且：
按我說的更改 Style屬性后，你要用 Text內容來判斷，也照樣可以用；
要“選定某項”，也可以用“文本賦值”的方式來操作。
比如：　Combo4.Text = "大斑病"
這樣寫也是可以的，但要求是Combo4中必須有某項為“大斑病”，否則會產生運行錯誤。
謝謝了還有一個小時交作業，從昨晚糾結到現在。非常感謝！

如果解決問題了，就結貼吧。

uj5u.com熱心網友回復：

下次這種問題可以自己加個斷點看一下，小問題

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/42082.html

標籤：VB基礎類

上一篇：For回圈中回應回車鍵

下一篇：如何獲得C幣，或有沒有推薦可用于VBA的PDF閱讀控制元件？無水印版