Question

vb：把记录集的某字段赋值combo。怎么写？

有多条记录 additem 循环怎么写

Answer 1

Dim rs1 As DAO.Recordset
Dim qd As DAO.QueryDef
Dim i As Integer
SbxFile2 = App.Path + "\data\gfxx.mdb"
Set db = OpenDatabase(SbxFile2)
Set qd = db.CreateQueryDef("")
qd.SQL = "select 部门编号,部门名称 from bmxx"
Set rs1 = qd.OpenRecordset
If Not rs1.EOF Then
rs1.MoveLast
rs1.MoveFirst
End If
For i = 0 To combo1.ListCount - 1
If combo1.List(i) <> "" Then combo1.RemoveItem i
Next i
combo1.Clear
For i = 1 To rs1.RecordCount
If Not IsNull(rs1(0)) Then
combo1.AddItem rs1(0) & " " & rs1(1)
rs1.MoveNext
End If
Next i

rs1.Close
qd.Close

Set db = Nothing
参照吧。

Answer 2

combo1.AddItem 字段值