Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

flaviojef

ComboBox nao assumir outros valores[RESOLVIDO]

Recommended Posts

flaviojef

boas pessoal tou aqui com um problemazinho num programa que estou a desenvolver em VB.NET entao é o seguinte:

tenho uma ComboBox num respectivo form em que vai buscar informação a outro form diferente que por sua vez essa informaçao está numa ListBox, mas o problema nao está em ir buscar essa informação até porque eu ja consegui ir busca-la, agora o problema é que eu por exemplo tenhu na listbox: maria, manel e joao

na ComboBox aparece a maria, manel e joao mas quando selecciono outro por exemplo o joao ele nao assume:s

isto até pode ser a coisa mais facil de resolver mas nao estou mesmo a ver como fazer isso:s

alguma sugestao?.....agradecia imenso

Cumpz

Share this post


Link to post
Share on other sites
bioshock

Mostra a parte do código em que ele vai buscar os valores à listbox.

Tu estás a querer dizer que não consegues seleccionar o "joão" ?

Share this post


Link to post
Share on other sites
flaviojef

sim, eu consegui colocar os valores que estao noutro form dentro duma listbox para a ComboBox do form que estou a criar agora, mas o problema eh selecionar e ficar esse valor que selecionei eu seleciono mas nao fica, fica sempre o primeiro... o codigo que tenho para visualizar a informação na comboBox eh este:

Private Sub F_marcacoes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As New DataTable
        Dim mySQL As String = "SELECT * FROM servicos"
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "server=it.integrale.com.pt; user id=jef; password=jef; database=megastand"

        Try
            conn.Open()
            Try
                myCommand.Connection = conn
                myCommand.CommandText = mySQL
                myAdapter.SelectCommand = myCommand
                myAdapter.Fill(myData)
                DataGridView_marcacoes.DataSource = myData

                With CB_servico
                    .DataSource = myData
                    .DisplayMember = "descricao"
                    .ValueMember = "descricao"
                    .SelectedIndex = 0
                End With

            Catch myerro As MySqlException
                MsgBox("Erro de leitura na Base de dados : " & myerro.Message)
            End Try
            conn.Close()
        Catch myerro As MySqlException
            MessageBox.Show("Erro ao conectar com a Base de dados : " & myerro.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub

e depois dentro da ComboBox tenho isto:

CB_servico.Text = DataGridView_marcacoes.CurrentRow.Cells(1).Value.ToString
        txt_preco_servico.Text = DataGridView_marcacoes.CurrentRow.Cells(2).Value.ToString

criei uma datagrid para poder ir buscar os valores

Share this post


Link to post
Share on other sites
ByMySlf

Então acho que esta linha...

CB_servico.Text = DataGridView_marcacoes.CurrentRow.Cells(1).Value.ToString

...não faz muito sentido nesse evento.

Desculpa lá se estou a interpretar mal o teu problema.

Share this post


Link to post
Share on other sites
flaviojef

sim era isso que estava a mais e eu pensei que fosse necessário... pronto ta resolvido obrigado amigo  :cheesygrin:

Cumpz

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.