Access中的listBox的记录集
问题描述:
我正在开发一个使用MS Access和VBA的应用程序。 不幸的是我有这样的问题:Access中的listBox的记录集
我设置使用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列,所以,这对我来说是一个问题。
我也尝试了反编译应用程序,但没有任何改变。
任何人都可以告诉我如何解决它? 非常感谢您的帮助
答
您需要将属性窗口中的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