2

我有一个列表框名称animal，行源设置为以下代码，其中查询“animal”是直通查询。但是，列表框不会填充任何动物。注意：如果我将查询“动物”作为独立的传递查询运行，它会正确运行，它只是不会填充列表框。单击列表框时，就好像查询没有执行一样。

Private Sub animallist_Enter()
    Dim Q           As QueryDef
    Dim DB          As Database

    ' Use for dynamic SQL statement'
    Dim strSQL      As String

    ' Modify the Query.
    Set DB = CurrentDb()
    Set Q = DB.QueryDefs("animal")

    strSQL = "Select distinct(animal) From AnimalDB.Animaltable"

    Q.SQL = strSQL
    Q.Close

    Me.animal.RowSource = strSQL
End Sub

如果我通过 ODBC 连接到“AnimalDB.Animaltable”并运行以下代码（将查询切换为选择而不是通过），列表框将填充动物。

Private Sub animallist_Enter()
    Dim Q           As QueryDef
    Dim DB          As Database

    ' Use for dynamic SQL statement'
    Dim strSQL      As String

    ' Modify the Query.
    Set DB = CurrentDb()
    Set Q = DB.QueryDefs("animal")

    strSQL = "Select distinct(animal) From [AnimalDB_Animaltable]"

    Q.SQL = strSQL
    Q.Close

    Me.animal.RowSource = strSQL
End Sub

为什么直通查询不会填充列表框？

4

1 回答 1

3

您正在设置一个 querydef，但没有使用它。

Me.animal.RowSource = strSQL

应该

Me.animal.RowSource = "animal"

或者

Me.animal.RowSource = Q.Name

您的第二个代码示例有效，因为 Access SELECT SQL 可以在 Access 查询中使用或直接用作行源。

PSQ.Close应该是Set Q = Nothing，但这也不是真正需要的，因为它是一个局部变量，在 sub 的末尾被销毁。

于 2016-08-05T10:51:35.247 回答