DBCombo 控件的属性
vb 中 DBCombo1 的值为客房号DBCombo2 客房类型 怎么根据DBCombo2 选好的客房类型在DBCombo1显示出相应的客房号 连接的是ACCESS 数据库 这段代码要怎么写？？急 各位 告诉 教教我~~~ 还有怎么让DBComo 的下拉值是唯一的不重复的属性中那个有这种功能？
[解决办法]
你这是典型的下拉列表数据加载问题，
一个下拉列表的值改变时，另一个下拉列表中的数据重新加载。
既然数据在数据库中，你可以直接用SQL语句来取数据呀，我给你一个例子，你改一下就能用。
Private Sub Combo3_LostFocus()
On Error GoTo comm_err '错误处理机制
If Trim(Combo3.Text) = "" Then
Exit Sub
Else
Dim i As Integer '循环变量
Dim strSQL As String '定义SQL字符串
Dim rsSql As New ADODB.Recordset '定义数据集
Combo4.Clear
strSQL = "SELECT distinct [county_name]FROM [TY_data_text].[dbo].[area_data] where provinces_name ='" & Trim(str_filter(Combo2.Text)) & "' and city_name ='" & Trim(Combo3.Text) & "' "
rsSql.Open strSQL, AdoCn, adOpenStatic '从数据库取数据到数据集
For i = 1 To rsSql.RecordCount
Combo4.AddItem rsSql!county_name '加载区县级名称
rsSql.MoveNext
Next i
rsSql.Close
End If
Exit Sub
comm_err:
End Sub
