VB中，在COMBOX中选择一个值如何在TEXT中自动显示相关值

来源：百度知道编辑：UC知道时间：2024/06/06 15:22:20

我定义了COMBOX，TEXT。用DATA连接数据
如何在COMBOX中选择一个值，在TEXT中自动显示与其相关的值
例如，我在COMBOX中选择了1，则TEXT中自动显示为500
请提供代码及相关属性设置。谢谢！
我已经在ACCESS中建立了一个相关的表。
字段为工资等级和工资标准
需要在COMBOX中选择等级后显示对应的工资标准

Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.AddItem "aaa"
Combo1.AddItem "bbb"
Combo1.AddItem "ccc"
End Sub

楼主看看以下代码是否符合你的意思:
Private Sub Form_Load()
'初始化Combo的List数据
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
'设定Combo的初始值为第一个List的值
Combo1.ListIndex = 0
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "A"
Text1.Text = "Choose A!"
Case "B"
Text1.Text = "Choose B!"
Case "C"
Text1.Text = "Choose C!"
Case "D"
Tex