Access中的listBox的记录集

Question

我正在开发一个使用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 

的问题是，当我执行这段代码它的工作原理，但只有当我设置的数字我列表框的列在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