我正在使用存储过程的结果填充 MS Access 2010 表单上的列表框。我用来填充列表框的代码如下:
Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("PassThroughQuery")
qdf.SQL = "EXEC Search '" & searchValue & "'"
Set rs = qdf.OpenRecordset
While Not rs.EOF
Me.searchResultsBox.AddItem rs("name")
rs.MoveNext
Wend
查询运行良好,ListBox 填充了指定的值,但列表框中的项目不可选择。我无法单击并突出显示任何项目。
我检查了 Enabled 和 Locked 属性,它们分别设置为 True 和 False。“行源类型”设置为“值列表”。我不知道为什么列表框值的行为如此。