vb 的combo1控件

vb的combo1控件


法如下，只要进行选择combo1中的内容，那么Adodc会根据你所选择的字段改变数据库记录源从而显示不同的数据，如下只是注意方法。有问题可追问：
Private Sub Combo1_Click()
Adodc1.RecordSource = "select * from 你的数据库表的名称 where 你的数据库中标识楼层的字段='" + Combo1.Text + "'"
Adodc1.Refresh
End Sub

Private Sub Form_Load()
Combo1.AddItem "第一层"
Combo1.AddItem "第二层"
Combo1.AddItem "第三层"
Combo1.AddItem "第四层"
Combo1.AddItem "第五层"
Combo1.AddItem "第六层"
Combo1.AddItem "第七层"
Adodc1.ConnectionString = "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=你的数据库路径文件ersist Security Info=False"
Adodc1.CommandType = adCmdText
Set DataGrid1.DataSource = Adodc1
End Sub


Combo1.clear '清空Combo1里面的全部内容


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/