怎么关联两个下拉列表框?
两个下拉列表Combobox,怎么实现,第二个Combobox的内容随第一个combobox而变化,比如:comobox1选择了湖南,combobox2内容则是长沙,湘潭,衡阳等,如果comobox1选择了湖北,comobox2内容则是武汉等,combobox2的内容要实时改变

[解决办法]
写一个小程序，先得到第一个控件的值，根据这个值去数据库查询对应的值就可以了。


SelectData "select * from Pro_ProContrast where 出货编号 = ' " & Me.DataClientNum & " ' ", "无产品编号 ", Me.DataClientProNum, "出货产品编号 "


Public Sub SelectData(sql As String, NoRec As String, DataBox As DataCombo, FileName As String) '查询数据给DataBox列表中
'功能说明：用户在对一个 DataCombo 控件做下列选择时，自动查询出与其相对应的值赋给所指定的 DataCombo 控件
'参数说明：
'Sql 指定 DataCombo 控件所要得到值的 SQL 语句
'NoRec 如果没有该值显示的文字提示
'DataBox 指定显示控件的名称
'FileName 指定所要显示数据库内的字段值

On Error Resume Next
Dim rs As Recordset
Set rs = RunFrm.Query(sql)
If rs.EOF = True Then DataBox = NoRec
Set DataBox.RowSource = rs '给dataNmae列表赋记录集及下拉列表数据
DataBox.Text = rs.Fields(FileName)
DataBox.ListField = RTrim(FileName) '查询User表中的User_Name列中的数据
DataBox.BoundColumn = RTrim(FileName)

End Sub

[解决办法]

Private Sub Combo1_Click()
If Combo1.List(Combo1.ListIndex) = "湖南 " Then
Combo2.AddItem "长沙 "
Combo2.AddItem "武汉 "

'.............

Combo2.Text = "长沙 "
End If
End Sub


Private Sub Form_Load()
Combo1.AddItem "湖南 "
Combo1.AddItem "内蒙 "

End Sub

[解决办法]
真晕,去年写过一个,送给楼主吧:
http://blog.csdn.net/northwolves/archive/2006/11/03/1364142.aspx