标题: 请各位高手帮忙控件问题 [打印本页]

---

作者: wdp221651    时间: 2006-7-21 11:35     标题: 请各位高手帮忙控件问题

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

---

作者: Nothing    时间: 2006-7-26 00:05

你的代码没有错啊，不过中间少了点东西，即数据库的联接代码
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

---

作者: qxl584    时间: 2006-7-29 10:38

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

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0