2024年11月22日 星期五 首页 编程论坛 技术文档 黑客安全 源代码 应用下载 电子图书 电脑硬件 游戏开发 休闲娱乐 编程网站  
‹‹ 上一主题 | 下一主题 ››
发新话题
打印

请各位高手帮忙控件问题

wdp221651

初级程序员

Rank: 2Rank: 2
1# 大中 小发表于 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

TOP

Nothing

管理员

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9
2# 大中 小发表于 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

TOP

qxl584

初级程序员

Rank: 2Rank: 2
3# 大中 小发表于 2006-7-29 10:38  只看该作者
是啊，即然用了With Combo2 ，下面就不需要带Combo2 名引用了
  认真做事只能把事做对，用心做事才能把事做好。

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题