查看完整版本: 请各位高手帮忙控件问题

请各位高手帮忙控件问题

各位高手：
　　　　我想让ＣＯＭＢＯ控件中的下拉单显示它所连接的数据库中记录表字段的记录，记录是一条一条显示
我写的代码
Dim res As New ADODB.Recordset
Dim i As Integer
For i = 1 To Adodc1.Recordset.RecordCount
With Combo2
Combo2.AddItem Adodc1.Recordset.Fields(0)
res.MoveNext
End With
Next i

你的代码没有错啊，不过中间少了点东西，即数据库的联接代码
[color=Green]Dim res As New ADODB.Recordset '这句没用[/color]
Dim i As Integer
For i = 1 To Adodc1.Recordset.RecordCount
    [color=Red]With Combo2[/color] '好像也没有什么用
        Combo2.AddItem Adodc1.Recordset.Fields(0)
        [color=Red]Adodc1.Recordset.MoveNext '这个有修改[/color]
    [color=Red]End With[/color] '好像也没有什么用
Next i

是啊，即然用了With Combo2 ，下面就不需要带Combo2 名引用了