Pegar Valor e Texto do ComboBox - Carregado manualmente - VB.net

[João Fernandes dos Santos 2]

Pessoal estou tentado pegar o valor e texto de um combobox porémnão estou conseguindo.

 

eu utilizo essa função abaixo para carregar o combo, ele esta carregando certinho, apresenta corretamente porém não consigo pegar os valores do combo.

Public Function CarregaCombo(combo As ComboBox, ByVal strsql As String, ByVal texto As String, ByVal valor As String) As DataSet
        Try
            Dim objAdapter As SqlDataAdapter

            objAdapter = New SqlDataAdapter(strsql, SCLConnectionString)
            Dim Ds As New DataSet
            objAdapter.Fill(Ds, "Combo")
            'drop.DataTextField = texto
            combo.DisplayMember = texto
            combo.ValueMember = valor
            combo.DataSource = Ds.Tables("Combo")
            combo.Refresh()

            objAdapter.Dispose()
        Catch ex As Exception
            Throw ex
        End Try
        Return Ds
    End Function

ja tentei selectedindex, selectedtext, selectedvalue e nada.

 

 

[KhaosDoctor 242]

texto e valor são variáveis?

 

Eu acho que você não está definindo o text e valuemember corretamente e ai ele não está encontrando.

[João Fernandes dos Santos 2]

texto e valor são o nome da consulta SQL.

select valor,text from pessoas

[João Fernandes dos Santos 2]

Eu chamo a função para carregar a grid deste jeito:

 

 

carregacombo("select idproduto,nomeproduto from produto","nomeproduto","idproduto")

 

onde idproduto = valor e nomeproduto=texto do combobox.

 

 

o combo carrega certinho, porém não consigo pegar o valor nem o texto selecionado.

[KhaosDoctor 242]

Tente definir o dataSource primeiro ao invés dos membros.