COMBO1.ROWSOURCETYPE=1 &&将COMBO控件的数据源类型设为"值"
COMBO1.ROWSOURCE=""
USE <数据库名>
FNS=""
FOR I=1 TO <n> && n的值为数据库中的字段总数
FNS=FIELDS(I)
COMBO1.ROWSOURCE=COMBO1.ROWSOURCE+FNS+","
ENDFOR
如果你用VB+Access的话,参考以下代码:
set rs=mydb.openRecordSet("MyTable",dbopenSnapShot)
rs.moveLast
intRecCount=rs.count
rs.movefirst
for i=1 to intRecCount
Combo1.AddItem("MyTable.Field1")
rs.movenext
next i
i = 0
'将座席号加入下拉列表1(忙)中
While Not rst.EOF
cmbSeatID1.AddItem rst("seatid"), i
If rst("seatid") = CInt(BeListened) Then
'缺省显示正在被监听的座席号
cmbSeatID1.ListIndex = i
End If
rst.MoveNext
i = i + 1
Wend