通过程序让DATACOMBO显示特定的某一项。

Question

DATACOMBO ,怎样通过程序控制 其显示第几项。比如其有8项，我想通过程序控制其当前选择为第5项，能够实现吗，如果能，具体的代码是什么。

Answer 1

Private Sub Form_Load()
    Dim conn As New ADODB.Connection
    conn.Open "…………"     '此处省略数据库连接字符串
    
    Dim rs As New ADODB.Recordset
    rs.Open "select * from tablename", conn, 1, 1   'tablename是要绑定到Datacombo控件的表格的名称
    Set DataCombo1.RowSource = rs
    DataCombo1.ListField = "colname"   'colname是要在Datacombo里显示的字段的名称
    rs.Move 3        '显示第4项，rs中的记录数至少有4条
    DataCombo1.Text = rs.Fields("colname")   'colname与前面的相同
    Set rs = Nothing
End Sub

Answer 2

假如你绑定adodcAdodc1.Recordset.MoveFirst
Adodc1.Recordset.Move 4

Answer 3

一楼给的很详细了,一楼用了ado数据集绑定,3楼用了adodc控件绑定,都用了move方法完成定位