高手紧急求救！在线等待。一条关于datacombo的问题！！！

Question

Dim oRS     As New ADODB.Recordset
  Dim oConn     As New ADODB.Connection
    
          
          '连接字符串的路径自己改过来
          oConn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=qcxlk"
            
           oRS.Open "select   *   from   xlxmk", oConn, adOpenDynamic, adLockOptimistic    
          Set DataCombo1.RowSource = oRS
          DataCombo1.ListField = "xlxmsm"
          DataCombo1.Text = xlxmh
我始终没有办法在修改datacombo的时候把相应的xlxmh值放到datacombo.text。高手求救！！有什么办法呢？

Answer 1

Private Sub Command1_Click()
Dim oRS  As New ADODB.Recordset
Dim oConn   As New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\haoz\My Documents\aa.mdb;Persist Security Info=False"
oRS.CursorLocation = adUseClient
oRS.Open "select * from aa", oConn.ConnectionString, adOpenDynamic, adLockOptimistic, adCmdText
Set DataCombo1.RowSource = oRS
DataCombo1.ListField = "x"
DataCombo1.Text = oRS.Fields("x").Value
End Sub
你的要求没看明白，是不是datacombo填充后，想显示出字段值？

Answer 2

我是希望datacombo给出的选择是a表的x字段，选中后返回y字段，然后把返回y字段的值填写入datacombo.text保存（或者放到变量也行，关键是必须是实时的，我每改变一下datacombo的值，它也要跟着变），供我日后调用。

Answer 3

使用了DataCombo1.Text = oRS.Fields("x").Value后，text是y字段的值了，但是永远是初始那个，之后无论datacombo怎么改变，text都不变！求救阿………各位大侠………就差这一点点。。

Answer 4

还不行吗？我的qq：63512184，不行qq留言吧