Quantcast
Channel: ComboBox
Viewing all articles
Browse latest Browse all 6

ComboBox

0
0
Hola a todos

Estoy trabajando en vb 2008

Cargo el formulario con este codigo
Private Sub dialogAgregarMatSer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dbConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Password=;User ID=Admin;Data Source=" & Application.StartupPath & "\" & frmPresupuesto.Label11.Text)
        Try
            Dim queryMatCargar As String = "SELECT COS_DESCR, COS_UNIMED, COS_COSTO, COS_MONEDA FROM precios WHERE COS_MATMDO = 'Mat' ORDER BY COS_DESCR ASC"
            Dim daMatCargar As New OleDbDataAdapter(queryMatCargar, dbConn)
            Dim dtMatCargar As New DataTable
            daMatCargar.Fill(dtMatCargar)
            daMatCargar.Fill(dtMatCargar)
            'Cargamos ahora los controles
            cmbMat.DataSource = dtMatCargar
            cmbMat.DisplayMember = "COS_DESCR"
            If dtMatCargar.Rows.Count > 0 Then
                Dim rowMatCargar As DataRow = dtMatCargar.Rows(0)
                txtAgregaRubroCosto.Text = CStr(rowMatCargar("COS_COSTO"))
                txtAgregaRubroCosto.Text = String.Format("{0:#,##0.##}", rowMatCargar("COS_COSTO"))
                txtAgregaRubroUnidad.Text = CStr(rowMatCargar("COS_UNIMED"))
                lblMoneda.Text = CStr(rowMatCargar("COS_MONEDA"))
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
Luego recorro el combo con este codigo

Private Sub cmbMat_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbMat.SelectedIndexChanged
        Try
            Me.txtAgregaRubroUnidad.Text = cmbMat.SelectedItem(1)
            Me.txtAgregaRubroCosto.Text = cmbMat.SelectedItem(2)
            Me.lblMoneda.Text = cmbMat.SelectedItem(3)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
Pero me genera error cuando despliego el combo y voy tecleando unas letras, luego sin terminar aprieto ENTER
Al parecer no encuentra nada y genera la excepcion

Espero puedan ayudarme

Saludos

Carlos

Viewing all articles
Browse latest Browse all 6

Latest Images

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:





Latest Images

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:

Re:

Re:

Re:

Re:

Re:

Re:

Re:

Re: