请告诉我这段代码有什么问题。 显示错误... “必须将 rowsourcetype 属性设置为值列表才能使用它”
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strItem As String
strSQL = "SELECT CustomerID, CompanyName FROM Customers"
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
Do Until rs.EOF
strItem = rs.Fields("CustomerID").Value & ";" _
& rs.Fields("CompanyName").Value
Me.List1.AddItem strItem ' Row Source Type must be Value List
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
最佳答案
转到列表项的属性,在数据中找到属性“行源类型”并将其设置为“值列表”。 或者你可以在代码中加入
Me.Liste3.RowSourceType = "Value List"
就在代码的开头 Dim strSQL As String, strItem As String
希望对您有所帮助! 最大
关于database - 这个 VBA 代码有什么问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18722856/