VB中,在COMBOX中选择一个值如何在TEXT中自动显示相关值 20
我定义了COMBOX,TEXT。用DATA连接数据如何在COMBOX中选择一个值,在TEXT中自动显示与其相关的值例如,我在COMBOX中选择了1,则TEXT中自动显示为...
我定义了COMBOX,TEXT。用DATA连接数据
如何在COMBOX中选择一个值,在TEXT中自动显示与其相关的值
例如,我在COMBOX中选择了1,则TEXT中自动显示为500
请提供代码及相关属性设置。谢谢!
我已经在ACCESS中建立了一个相关的表。
字段为工资等级和工资标准
需要在COMBOX中选择等级后显示对应的工资标准 展开
如何在COMBOX中选择一个值,在TEXT中自动显示与其相关的值
例如,我在COMBOX中选择了1,则TEXT中自动显示为500
请提供代码及相关属性设置。谢谢!
我已经在ACCESS中建立了一个相关的表。
字段为工资等级和工资标准
需要在COMBOX中选择等级后显示对应的工资标准 展开
2个回答
展开全部
楼主看看以下代码是否符合你的意思:
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"
Text1.Text = "Choose D!"
End Select
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"
Text1.Text = "Choose D!"
End Select
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询