Question

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

我使用VBA和查询

设置了listBox的记录集

'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列，所以，这对我来说是一个问题。

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

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

Answer 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

Access中listBox的记录集

1 个答案: