vb6.0中combo1控件的填充問題

[hongwanchun]

我的方法﹕
sql = "select fordno from t_ordmst order by fordno"
Set rs = mpb_Cn.OpenResultset(sql)
Do While Not rs.EOF
Com.AddItem rs(0)
rs.MoveNext
Loop
這樣的速度非常慢
有沒有速度快一點的方法

[felix]

据说用For i=1 to rs.recordset比Do While Not rs.EOF快三分之一的速度，因为不必每次都检测是否到了最后一条纪录

[toys]

可以用支持ADO的DataCombo

Do while 不要，接你的代码：

Set Com.RowSource = rs
Cmb.ListField = "你要连接的字段名"

这样应该行，我都是这么用的！

[konglingboy]

试一下：
for i=0 to rs.RecordCount-1
Com.AddItem rs!fordno
rs.movenext
next i

还有，do while not rs.eof /do until rs.eof 速度应该一样吧？没有试验过。

[hongwanchun]

謝謝大家的指點! 在不用ADO連接的情況下能不能﹐把結果集直接給combo1

[海牛]

这样速度慢吗？
Do While Not rs.EOF
Com.AddItem rs(0)
rs.MoveNext
Loop
除非你的记录有1000条以上