发新话题
打印

请各位高手帮忙控件问题

请各位高手帮忙控件问题

各位高手:
    我想让COMBO控件中的下拉单显示它所连接的数据库中记录表字段的记录,记录是一条一条显示
我写的代码
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

TOP

你的代码没有错啊,不过中间少了点东西,即数据库的联接代码
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)
        Adodc1.Recordset.MoveNext '这个有修改
    End With '好像也没有什么用
Next i

TOP

是啊,即然用了With Combo2 ,下面就不需要带Combo2 名引用了
  认真做事只能把事做对,用心做事才能把事做好。

TOP

发新话题