none
Combobox - o que estou fazendo de errado ? RRS feed

  • Pergunta

  • Olá a todos,

    Tenho um datagridview em um formulário e abaixo um combobox. Gostaria de mover entre os registros do datagridview, e ao mover, o combobox deveria ser sincronizado com o valor de uma das colunas do dataset do datagridview. No combobox tenho uma lista com dois valores possíveis, Racional(1) e Irracional(2). A coluna "TIPO" do dataset refere-se os tipos anteriores.
    Segue abaixo o código, no entanto não obtive o resultado desejado. O que estou fazendo de errado ?

    Grato,
    Davis

    Imports System.ComponentModel
    Imports IBM.Data.DB2
    
    Public Class Form1
        Private BdgSource As BindingSource = New BindingSource
        Private StrCon As String = "Server=LOCALHOST:50000;Database=SAMPLE;UID=USER1;PWD=XYZ;Connect Timeout=30"
        Private Dts As DataSet = New DataSet
    
        Private Class TipoSer
            Private _Tipo As Integer = 0
            Private _Desc As String = ""
    
            Property Tipo As Integer
                Set(ByVal value As Integer)
                    _Tipo = value
                End Set
                Get
                    Return _Tipo
                End Get
            End Property
    
            Property Descricao As String
                Set(ByVal value As String)
                    _Desc = value
                End Set
                Get
                    Return _Desc
                End Get
            End Property
    
            Public Sub New(ByVal Tipo As Integer, ByVal Descricao As String)
                _Tipo = Tipo
                _Desc = Descricao
            End Sub
    
        End Class
    
        Private Sub AtualizarGrade()
            Dim con As DB2Connection = New DB2Connection(StrCon)
            'Dim trans As DB2Transaction
            Dim cmd As DB2Command = New DB2Command
            Dim adp As DB2DataAdapter = New DB2DataAdapter
    
            con.Open()
            cmd.Transaction = con.BeginTransaction
            cmd.Connection = con
            cmd.CommandText = "SELECT * FROM TESTE"
            'cmd.ExecuteNonQuery()
            adp.SelectCommand = cmd
            adp.Fill(Dts, "TABELA1")
    
            BdgSource.DataSource = Dts.Tables(0)
            
            DataGridView1.DataSource = BdgSource.DataSource
    
        End Sub
    
        Private Sub PreencherCombobox()
            Dim lista As List(Of TipoSer) = New List(Of TipoSer)
    
            lista.Add(New TipoSer(1, "Humano"))
            lista.Add(New TipoSer(2, "Irracional"))
    
            ComboBox1.DataSource = lista
            ComboBox1.DisplayMember = "Descricao"
            ComboBox1.ValueMember = "Tipo"
    
        End Sub
    
        Private Sub BindComponentes()
            Dim bd As Binding = New Binding("SelectedValue", BdgSource, "TIPO")
            ComboBox1.DataBindings.Add(bd)
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            AtualizarGrade()
            PreencherCombobox()
            BindComponentes()
        End Sub
    End Class
    

    segunda-feira, 10 de junho de 2013 00:03