怎样将Combobox和Textbox通过一张表关联起来 有一张字段为编号,材料名称,密度的一张表。我想通过Combobox和Textbox实现关联,也就是当通过Combobox选择一种材料时,Textbox将会出现它的密度值。谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在Combo1_Click作处理过程就可以了可以根据Combo1.ListIndexCombo1.ListCombo1.ItemData等属性作关键参数进行处理 combobox对于数据表的使用并不方便,你需要使用additem来添加列表。建议你使用datacombo来与textbox实现关联,才好实现你的要求。工程-- 部件-- 添加microsoft datalist controls 6.0DataCombo1.Style选择 dbcDropdownList Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ "C:\Documents and Settings\Administrator\My Documents\11.mdb;Persist Security Info=False" Adodc1.CursorLocation = adUseClient Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from itb2" Adodc1.Refresh Set DataCombo1.DataSource = Adodc1 Set DataCombo1.RowSource = Adodc1 DataCombo1.ListField = Adodc1.Recordset.Fields(1).Name DataCombo1.Text = DataCombo1.BoundColumn Text1.Locked = True Set Text1.DataSource = Adodc1 Text1.DataField = Adodc1.Recordset.Fields(2).Name End SubPrivate Sub DataCombo1_Change() If IsNull(DataCombo1.SelectedItem) Then Exit Sub Adodc1.Recordset.Move DataCombo1.SelectedItem - 1, 1End Sub 嘿,发现一个奇怪的函数,WinStationGetAllProcesses。。。 VB 关于数字验证码识别! 还是前面提过的线程问题,编译没问题,生成EXE文件出错,我把最新的源代码附上,请诸位帮忙,谢谢!! 如何有选择的关闭部分子窗口的两个疑问,恳请指点! DBCOMBO控件的问题 请教一个VB调用动态连接库的问题,急 请教:如何在VB6.0中实现ppt文件的播放 msHflexgrid虽然好,确实有点问题 关于MSFlexGrid,请高手指点. 一个类的属性能返回数组值吗?如果可以,该怎么写??? xuy 求高手给个代码,不用任何组件实现vb的web浏览器
可以根据
Combo1.ListIndex
Combo1.List
Combo1.ItemData
等属性作关键参数进行处理
建议你使用datacombo来与textbox实现关联,才好实现你的要求。工程-- 部件-- 添加microsoft datalist controls 6.0
DataCombo1.Style选择 dbcDropdownList
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
"C:\Documents and Settings\Administrator\My Documents\11.mdb;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from itb2"
Adodc1.Refresh Set DataCombo1.DataSource = Adodc1
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = Adodc1.Recordset.Fields(1).Name
DataCombo1.Text = DataCombo1.BoundColumn
Text1.Locked = True
Set Text1.DataSource = Adodc1
Text1.DataField = Adodc1.Recordset.Fields(2).Name
End SubPrivate Sub DataCombo1_Change()
If IsNull(DataCombo1.SelectedItem) Then Exit Sub
Adodc1.Recordset.Move DataCombo1.SelectedItem - 1, 1End Sub