Question

vb combo控件的变化问题,我combo1控件有几个下拉项,当选择某一项的时候,当前combo1要变成别的内容

比如,combo1下面有001,002,003,004,选择002时,要改变成"002水果"

Private Sub Combo1_Click()
if combo1.text="002" then combo1.text="002水果"

End Sub
这样编出来选择后是显示为空的,什么也没有

Answer 1

COMBO1的原始数据格式对吗？可能有空格，所以造成你的判断出错。
Private Sub Combo1_Click()
If Combo1.Text = "1" Then
Combo1.Text = "1水果"
End If
End Sub

Private Sub Form_Load()
Combo1.AddItem (1)
Combo1.AddItem (2)
Combo1.AddItem (3)
End Sub

以上的代码实现的功能和你设想的一样，测试无问题

Private Sub Combo1_Change()
If IsNumeric(Combo1.Text) = False Then
Combo1.Text = ""
End If
End Sub
如果有类似代码的话，显示就成空了

追问

为什么我测试就不显示,这是我选了之后显示的

追答

Private Sub Combo1_Change()
If IsNumeric(Combo1.Text) = False Then
Combo1.Text = ""
End If
End Sub
如果有类似代码的话，显示就成空了

Answer 2

首先用ADD方法添加选项

追问

我不要添加,我要修改,原始选项不能有变化,只让text里变化

追答

那你的代码没有错误。

追问

我选择之后是这个

追答

那你的代码没有错误。 你把文件发给我，我看一下。QQ137727650