VALORES DO COMBOBOX

PROCURADO 05/02/2013 12:20:20
#418808
Boa Tarde

De que forma posso pegar o valor da segunda coluna para se fazer pesquisa conforme exemplo abaixo.


maça | 1
pera | 2
laranja | 3

qual a forma de pegar os valores dos números (1,2,3) do combobox.

sem mais
atenciosamente
Fausto
GANDA.NICK 05/02/2013 14:20:36
#418817
Resposta escolhida
Olá

Não percebi bem o que vc quer fazer...

mas a função [txt-color=#0000f0]SPLIT [/txt-color]divide uma string dado um certo limitador

ex:

Dim sAux() As String

sAux = Split(Me.Combo1.List(0), [Ô]|[Ô])
MsgBox sAux(0)


no seu exemplo iria retornar [Ô]maça[Ô]


MsgBox sAux(1)


iria retornar [Ô] 1[Ô]


Explique melhor e tamos aí para o ajudar
MARCELO.TREZE 05/02/2013 14:27:22
#418819
se a coluna do combo estiver separada por pipe ( | ) como no exemplo é assim

Dim Valor() As String
Dim Valores As String
For F = 0 To Combo1.ListCount - 1
Valor = Split(Combo1.List(F), [Ô]|[Ô])
Valores = Valores & Valor(1) & [Ô],[Ô]
Next F
MsgBox Valores





Tópico encerrado , respostas não são mais permitidas