两个DBCombo控件如何保持同步？

Question

我的数据库项目要求，当界面上的一个DBCombo控件发生变化时，
另一个会产生相应的变化。也就是说，当DBCombo1被选中第2条
记录时，DBCombo2会相应的显示第二条记录。
我该怎么做呢？请大家帮帮忙！

Answer 1

Private Sub DbCombo1_Click(Area As Integer)
    DbCombo2.Text = DbCombo1.Text
End Sub

Answer 2

方法1：需要移动与DbCombo2的RowSource属性绑定的DATA2的记录指针。并更新其text,比较麻烦。
方法2：如果用Combo控件可以的话，先将两个数据库中的内容添加到Combo控件中。然后：
Private Sub Combo1_Click()
   Combo2.ListIndex = Combo1.ListIndex
End Sub
不知能不能附合你的要求。记住要给分，不然我会很失望的。

Answer 3

哈哈哈哈，我已经想到让两个控件发生相应变化的方法了
代码如下：
Private Sub DBCombo1_Change()
    Data2.Recordset.Book = DBCombo1.SelectedItem
    DBCombo2.Text = Data2.Recordset.Fields("KFS_NAME").Value
End SubPrivate Sub DBCombo2_Change()
    Data2.Recordset.Book = DBCombo2.SelectedItem
    DBCombo1.Text = Data2.Recordset.Fields("KFS_NO").Value
End Sub
我要使用DBCombo控件，不能使用ComboBox控件，因为要从另一个数据表里读数据
不过，不想让你失望，所以，分都归你了！