激活combo后为什么运行不了
Private Sub Form_Load()Combo3.List(0) = "卵石"
Combo3.List(1) = "碎石"
End Sub
Private Sub Combo3_Change()
If Combo3.Text = "" Then
Text11 = ""
Text12 = ""
End If
If Combo3 = "碎石" Then
Text11 = 0.53
Text12 = 0.2
End If
If Combo3 = "卵石" Then
Text11 = 0.49
Text12 = 0.13
End If
End Sub
