当前位置:编程学习 > VB >>

怎样将Combobox和Textbox通过一张表关联起来

有一张字段为编号,材料名称,密度的一张表。我想通过Combobox和Textbox实现关联,也就是当通过Combobox选择一种材料时,Textbox将会出现它的密度值。谢谢 --------------------编程问答-------------------- 在Combo1_Click作处理过程就可以了
可以根据
Combo1.ListIndex
Combo1.List
Combo1.ItemData
等属性作关键参数进行处理 --------------------编程问答--------------------
引用楼主 qustlist 的回复:
有一张字段为编号,材料名称,密度的一张表。我想通过Combobox和Textbox实现关联,也就是当通过Combobox选择一种材料时,Textbox将会出现它的密度值。谢谢

combobox对于数据表的使用并不方便,你需要使用additem来添加列表。
建议你使用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 Sub

Private Sub DataCombo1_Change()
    If IsNull(DataCombo1.SelectedItem) Then Exit Sub
    Adodc1.Recordset.Move DataCombo1.SelectedItem - 1, 1

End Sub

补充:VB ,  控件
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,