Access 中列表框的记录集答案

【问题标题】：Recordset of a listBox in AccessAccess 中列表框的记录集
【发布时间】：2017-05-09 10:12:14
【问题描述】：

我正在使用 MS Access 和 VBA 开发应用程序。不幸的是我有这个问题：

我使用 VBA 和查询设置列表框的记录集

'In the select, i select 4 fields
SQL = "..."        
rs.CursorLocation = adUseClient
rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic
    If Not rs.EOF Then
        Set Me.MyList.Recordset = rs
        Me.MyList.SetFocus
    Else
        Set Me.MyList.Recordset = Nothing
        Me.MyList.SetFocus
    End If
rs.Close

问题是，当我执行这段代码时，它可以工作，但前提是我将 listBox 的列数设置为 1 或 2。我需要显示 4 列，所以，这对我来说是个问题。

我也尝试过反编译应用程序，但没有任何改变。

谁能告诉我如何解决它？非常感谢您的帮助

【问题讨论】：

标签： vba ms-access listbox

【解决方案1】：

您需要将属性窗口上的Column Count设置为4，并以0cm;1.217cm;2.064cm;3.545cm的形式定义列宽。

您可以在设计模式下或通过代码执行此操作：

Dim sql_ As String
    sql_ = "Your SQL command..."

    With Me.MyList
        .ColumnCount = 4
        .ColumnWidths = "0cm;1.217cm;2.064cm;3.545cm"
        .RowSourceType = "Table/Query"
        .RowSource = sql_
    End With

【讨论】：