我试图将表列数据添加为列表框项目，我试图将表列名称添加为列表框项目。但是我如何添加表列数据作为列表框项目。我有桌子
Column1
A
B
C
D
E
我尝试将表列名称添加为列表框项目，VBA
Sub item1()
On Error Resume Next
Dim i As Integer 'Index for loop
With Me.lstbox
.RowSourceType = "Value List" 'Set rowsource type
.RowSource = "" 'Clean combo contents
End With
For i = 1 To CurrentDb.TableDefs("table1").Fields.Count
Me.lstbox.AddItem (CurrentDb.TableDefs("table1").Fields(i -1).Name)
Next i
End with
End sub
我如何将A，B，C，D，E作为列表框项目。
只需将组合RowSourceType设置为Table / Query，然后将表名或SQL用于RowSource。
With Me.lstbox
.RowSourceType = "Table/Query" 'Set rowsource type
.RowSource = "Select Field1 From Table1"
End With
确保设置正确的“绑定列”，“列数”和“列宽”。在大多数情况下，不需要使用列表框的代码，只需使用属性表即可。如果您不熟悉MS Access，使用向导通常会很有用。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句