我将一个数据集，赋给listbox.datasouce,为什么listbox中不显示数据集中的值？

Question

Set posrs = New ADODB.Recordset
posrs.CursorLocation = adUseClient
posrs.Open "select [position] from [position] where [NO]=" & NO & "and [saled]=0", poscn, adOpenDynamic, adLockReadOnly
Set lstpos.DataSource = posrs
lstpos.Refresh
查询是正确的

Answer 1

Set lstpos.DataSource = posrs
没用过，如果不行用循环一个一个加

Answer 2

我就是觉得既然有一个datasource的属性,不用浪费

Answer 3

Set posrs = New ADODB.Recordset
posrs.CursorLocation = adUseClient
posrs.Open "select [position] from [position] where [NO]=" & NO & "and [saled]=0", poscn, adOpenDynamic, adLockReadOnly'#####################################
'出错,listbox控件不是这样赋值的
Set lstpos.DataSource = posrslstpos.Refresh
'#####################################
Dim add$
Do Until posrs.EOF
        add$ = posrs!NO    '具体是什么字段，你自己写吧
        lstpos.AddItem add$
        posrs.MoveNext
Loop

Answer 4

那它的datasource属性是怎么用的呢？

Answer 5

The standard ListBox control must be populated manually by using the AddItem method. 
如果要绑定.用 DBList
想知道为什么.只能去问 ms 了