高手请进，一个难题？

Question

窗体有两个控件datacombo1
text1分别绑定了数据库中两个字段现在的情况是当datacombo1选项变化时，text1无改变，数据库始终仍停在第一条记录上。
现在请问如何实现，当datacombo1选项改变时,text1的内容也跟着改变??如果是用代码实现，代码怎么样写:)

Answer 1

datacombo1中不是有change事件吗，在这个事件里改就行

Answer 2

combobox的改变事件应该是click，不是change,change是combobox的文本发生变化的时候产生的.

Answer 3

用datacombo1的Click事件，在其中判断出用户选的是那条记录，然后在把本条记录的另一个字段的值赋给Text就行了。

Answer 4

datacombo1_change
text1.text=adodc1.recordset.fields("字段")

Answer 5

首先用模块级变量来记录Combo中的值，在Combo的Click事件中判断该值是否发生变化，如该值改变再使Text中的值发生变化

Answer 6

datacombo1_change
text1.text=adodc1.recordset.fields("字段")datacombo1_Click
text1.text=adodc1.recordset.fields("字段")

Answer 7

Datacobmo控件与普通的Combo控件不一样，它没有Combo控件的一些事件和事件参数（如Index参数）。其次，它是一个数据绑定控件，不但可以显示记录下拉列表，还可以通过选择来更改另一记录源。所以大家不能把它当普通的Combo控件来看待。目前我的做法是
Private Sub DataCombo1_Click(Area As Integer)
     Adodc1.Recordset.MoveFirst
     If Not IsNull(DataCombo1.SelectedItem) Then Adodc1.Recordset.Move DataCombo1.SelectedItem - 1
End Sub
现在基本已经可以了，不过现在还有一个问题,就是DataCombo控件绑定字段的值在Move过程中会变成当前DataCombo所显示的内容。我想是DataCombo直接绑定到字段的关系。
举个例子，原来字段记录值是1,2,3,4,5,6,7,8,9
在多次DataCombo1_Click事件后字段记录值可能变成2,2,2,2,2,2,7,2,9问，如何使字段值在RecordSet.Move移动记录后保持原来字段值不变化？我不知道这样说大家能明白吗？

Answer 8

Dim rs As ADODB.Recordset  '弄矗絪腹
    Dim sql As String
    
    sql = "select * from intcase order by caseno"
    Set rs = DBEnv.DBconn.Execute(sql)
    
    If rs.RecordCount > 0 Then
            
            
            dbcTabh.ListField = ""
            dbcTabh.DataField = ""
         '  Set dbcTabh.DataSource = rs
            Set dbcTabh.RowSource = rs
            dbcTabh.ListField = "caseno"
            dbcTabh.DataField = "caseno"    End If
    sql = "select * from intcase  where caseno='"& trim(dbctabh.text)&"'"
    Set rs = DBEnv.DBconn.Execute(sql)
    
    
    text.text =rs.file("").value