ltcombo是个什么东西?不会是一个combobox吧?我通常这样填充combobox Public Sub FillDictData_NoAllow(CboObject As ComboBox, tablename) Dim db As Database Dim rec As Recordset Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\assay.mdb", False, False) Set rec = db.OpenRecordset("select name from " & tablename) Do While Not rec.EOF If Not IsNull(rec.Fields(0)) Then CboObject.AddItem Trim(rec.Fields(0)) rec.MoveNext Loop rec.Close db.Close Set rec = Nothing Set db = Nothing End Sub
Public Sub FillDictData_NoAllow(CboObject As ComboBox, tablename)
Dim db As Database
Dim rec As Recordset
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\assay.mdb", False, False)
Set rec = db.OpenRecordset("select name from " & tablename)
Do While Not rec.EOF
If Not IsNull(rec.Fields(0)) Then CboObject.AddItem Trim(rec.Fields(0))
rec.MoveNext
Loop
rec.Close
db.Close
Set rec = Nothing
Set db = Nothing
End Sub