Question

vb中如何当combobox的值改变textbox的值与combobox的值关联如何实现

Answer 1

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

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

追问

非常感谢你的回答~
可是我想要的是下面这种情况：
A列 B列
1 100
2 200
3 300
。 。
。 。
。 。
。 。
当combobox的值为1时
textbox的值为100
当combobox的值为3时
textbox的值为300
以此类推
都是对应的
谢谢！！

追答

哪来的A列，B列？数据储存在哪儿？

追问

在excel表格中

追答

看你原来的问题，根本就没提到excel，这样调用建立关联的效率非常低，建议你通过学习访问excel，如果数据不大，一次性读出所有数据，保存在数组里。具体的操作自己练习一下吧。
VB访问excel，需要添加引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003），然后选择"确定"。表示在工程中要引用EXCEL类型库。
Private Sub Combo1_Click()
dim i as integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" 'excel工作簿路径和名称
SheetName = "sheet1" '数据存放的工作表
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = false '设置EXCEL对象不可见
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
for i=1 to xlsheet.[A65536].End(xlUp).Row
if cells(i,1)=combo1.text then
text1.text=cells(i,2)
exit for
end if
next i
if i>xlsheet.[A65536].End(xlUp).Row then text1.text="没找到。"
xlBook.Close (Fase) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub