COMBOBOX COM MAIS DE UMA COLUNA

NLSOLUCOES 22/09/2010 19:31:49
#353629

>
A Combo Estendida concatenando as informações como a do THIGO é mais leve e atende o que vc precisa.
<

GERARDA 22/09/2010 21:17:35
#353635

meu jeito estranho de fazer isso

não vale rir!!!!

THIGO 23/09/2010 08:50:23
#353648

Creio que a maneira que eu passei seja a melhor e mais leve, caso tenha duvida ainda posta o select que te ajudo concatenar para você ver como fica ok

Lembrando so informe o banco que usa para concatenar certo porque trabalho com oracle e é bem diferente de alguns bancos de dados

Flw

MARCOSLING 23/09/2010 13:56:49
#353682

tem essa dica, que parece melhor: http://vbnet.mvps.org/index.html?code/subclass/combotabbedlist.htm

AJSO 23/09/2010 14:24:25
#353684

em anexo oprocedimento para usar os controle Form 2.0 do VB6



Aqui vai um código do ComboBox Form 2.0 para ter uma combo com 3 colunas ou mais


Como resolver isto e como gravar um novo registro?

[ô]Carrega Logradouro
Me.cboLogradouro.BoundColumn = 1
Me.cboLogradouro.ColumnCount = 3 [ô]Número de Colunas
Me.cboLogradouro.ColumnWidths = [Ô]0cm;4,614cm;4,501cm[Ô] [ô]Largura das colunas
Me.cboLogradouro.ListWidth = [Ô]9,115cm[Ô] [ô]Largura da Lista
Me.cboLogradouro.ColumnHeads = True [ô]Título das Colunas

strCB = [Ô]SELECT T_Logradouros.Num_ID_Logradouro, (T_Logradouros.Nom_Logradouro) AS Logradouro, (T_Logradouros.Nom_Bairro) AS Bairro FROM T_Logradouros WHERE T_Logradouros.Cod_ID_Cidade = [Ô] & rs([Ô]Num_ID_Cidade[Ô])
strCB = strCB & [Ô] ORDER BY T_Logradouros.Nom_Logradouro[Ô]
Set rsCB = cnn.Execute(strCB)
rsCB.MoveMin
x = 0
Do Until rsCB.EOF
Me.cboLogradouro.AddItem
Me.cboLogradouro.List(x, 0) = rsCB([Ô]Num_ID_Logradouro[Ô])
Me.cboLogradouro.List(x, 1) = rsCB([Ô]Logradouro[Ô])
Me.cboLogradouro.List(x, 2) = rsCB([Ô]Bairro[Ô])
x = x + 1
rsCB.MoveNext
Loop
rsCB.Close
Set rsCB = Nothing

[ô]Rotina de Leitura do Logradouro
Me.cboLogradouro = [Ô][Ô]
For Cont = 0 To Me.cboLogradouro.ListCount - 1
If CLng(Me.cboLogradouro.List(Cont, 0)) = rs([Ô]Num_ID_Logradouro[Ô]) Then
Me.cboLogradouro.ListIndex = Cont
Exit For
End If
Next