Colunas comboBox


(Karolina Schubert) #1

Olá

Tenho Script que faz consulta com o banco de dados e retorna os dados de uma das colunas (NomeRota) em um combobox, porém eu precisaria que me retornasse duas colunas (Codigo e o NomeRota).

Selecao
ScripComboBox


(Luiz Fernando Freire dos Reis) #2

@Karolina, bom dia.

Pode fazer conforme este KB (adaptado):

Sub ComboBox1_OnStartRunning()
'https://kb.elipse.com.br/kb38309-adicionando-colunas-ao-objeto-listbox/	
ColumnCount = 2
Clear()

AddItem "Row 1, Col 1"
List(0, 1) = "Row 1, Col 2" 

AddItem "Row 2, Col 1"
List(1, 1) = "Row 2, Col 2"

AddItem "Row 3, Col 1"
List(2, 1) = "Row 3, Col 2"
End Sub

Ou criar um array com as posições necessárias e depois adicionar ao objeto:

Sub ComboBox1_OnStartRunning()
'https://kb.elipse.com.br/kb38309-adicionando-colunas-ao-objeto-listbox/	

Dim lista(2,1)

ColumnCount = 2
Clear()

lista(0, 0) = "Row 1,Col 1" 
lista(0, 1) = "Row 1,Col 2" 

lista(1, 0) = "Row 2,Col 1" 
lista(1, 1) = "Row 2,Col 2" 

lista(2, 0) = "Row 3,Col 1" 
lista(2, 1) = "Row 3,Col 2" 

List() = lista
End Sub

Sds.