关于DataCombox的问题

[silvercard]

dataCombox并不绑定,只是与数据集连接.

请问,这时如果数据显示在各个datacombox的下拉菜单中.那么如何实现随便点击任何一个datacombox下拉菜单的一条记录,其他的datacombox中也相应的显示相关的数据呢?

例如,有2个datacombox,名字分别为dcmb1和dcmb2.他们与同一个rs相连.并且现在这2个控件的下拉菜单中都有数据集中的数据了.
例如数据集内容是
部门编号 部门名称
1 A
2 B
3 C
...
...
N X

数据集的内容是变化的,应该怎样写程序?
如果是普通的combox还好,有listindex可以利用.可是在datacombox中,有什么样子的属性可以利用呢?谢谢指教~~~~

[silvercard]

急呀~~~~帮解决的朋友,再加30分.
谢谢啦~~`

[daisy8675]

你的题目说的很不清楚啊，这样你拿一个表，或者2个表
datacombox1要显示什么，dataCombol2要显示什么，说清楚

看了脑袋晕，描述问题要准确，否则谁也没耐心看帖:)

[silvercard]

嗯,我知道了.
其实就是选择任何一个datacombo下拉菜单中的数据,然后其他的datacombo中相应的显示此数据有关的数据.
例如
datacombo1控件 datacombo2控件
下拉菜单 1 A
2 B
3 C
... ...

随便选择哪个控件中的下拉菜单.那么另一个控件中,就相应地显示数据.
(当我选择"3"时,那么datacombo中就显示"C")

谢谢!!

[daisy8675]

用简单的SQL语句就行了嘛:)
Option Explicit

Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection

Private Sub DataCombo1_Click(Area As Integer)
Dim strText As String
strText = Me.DataCombo1.Text
If strText = "" Then Exit Sub
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Man where ID=" & strText & "", Conn, adOpenStatic, adLockOptimistic
Me.DataCombo2.Text = Rs(1)
Call LoadData
End Sub

Private Sub Form_Load()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
Conn.CursorLocation = adUseClient
Conn.Open strConn

Call LoadData
End Sub

Public Sub LoadData()
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Man", Conn, adOpenStatic, adLockOptimistic

With Me.DataCombo1
Set .RowSource = Rs
.ListField = "ID"
.BoundColumn = "ID"
End With

With Me.DataCombo2
Set .RowSource = Rs
.ListField = "name"
.BoundColumn = "name"
End With
End Sub

[silvercard]

唉!忘记说了.
不光是要点击一个dcombo,如果一个窗体有很多dcombo,那么随便点击哪个dcombo,其他的dcombo都能相应地显示相关的数据.
就是这样的做不出来,所以头都大了.

请再帮忙看看,谢谢~~
如果要实现以上我说的,是不是非常难呀?