急救！怎样手工绑定DataCombo控件？ [有关问题点数：40分]

急救！怎样手工绑定DataCombo控件？ [问题点数：40分]

Private Sub Form_Load()
    OpenConn
    Dim Rs As New ADODB.Recordset
    Dim Sql As String
    '绑定下拉
    Sql = "SELECT * FROM auto_Owner ORDER BY OwnerID"
    Rs.Open Sql, Conn, 1, 1
    
    Set OwnerID.RowSource = Rs
    OwnerID.ListField = "OwnerName"
    OwnerID.BoundColumn = "OwnerID"
    
    Set OwnerID.DataSource = Rs
    OwnerID.DataField = "OwnerID"
    
    Rs.Close
    Set Rs = Nothing
End Sub

我用上面的代码，不知为什么不能绑定控制，数据源肯定是有记录并且正常的。
另外，如果我知道一个BoundColumn列的ID值，该如果设置该索引的Selected为True呢。
[解决办法]
如果绑定，你就不能关闭记录集。否则就用 ComboBox，查询后代码填充 List。
[解决办法]
你这个是想做什么用的，作为列表为其它提供数据？

 Set OwnerID.RowSource = Rs     
OwnerID.ListField = "OwnerName"    
OwnerID.BoundColumn = "OwnerID"'不需要，你应该不是用于绑定          
Set OwnerID.DataSource = Rs'错误，应该是set owerid.rowsource=rs     
OwnerID.DataField = "OwnerID" '不需要

查看更多 下一篇