Question

我该怎么做？我有一个相当复杂的listBox，总共包含12列，并希望在textBox上填写表单中的一些listBox_Click()字段。

目前我这样做：

With Me
    .txtBox1 = Me.lstBox.Column(0)
    .txtBox2 = Me.lstBox.Column(1)
    .txtBox3 = Me.lstBox.Column(5)
    .txtBox4 = Me.lstBox.Column(10)
End With

但是，当我从listBox添加/删除特定列时，这可能非常混乱。 VBA不允许我以这种方式引用Column：

Me.txtBox1 = Me.lstBox.Column("Price")

"Price"基本上是我Column header中显示的lstBox。

Answer 1

你没有。或者更确切地说，如果你坚持，你将首先创建一个VBA集合，其中coloumn名称为key，索引为value。然后你可以这样做：

<message>

或者，如果系列列已修复，您可以创建枚举并使用：

Me!txtBox1.Value = Me!lstBox.Column(CollectionOfColumns("Price"))

listBox列标题名称而不是列索引号引用的listBox行列

1 个答案: