Выбранные столбцы столбцов столбцов, на которые ссылается имя столбца заголовка listBox вместо номера индекса столбца

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 как ключом и индексом как значением. Затем вы можете сделать так:

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

Или, если ряд столбцов фиксирован, вы можете создать Enum и использование:

Me!txtBox1.Value = Me!lstBox.Column(EnumOfColumns.Price)