Hola a todos
Estoy trabajando en vb 2008
Cargo el formulario con este codigo
Al parecer no encuentra nada y genera la excepcion
Espero puedan ayudarme
Saludos
Carlos
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 codigoPrivate 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 ENTERAl parecer no encuentra nada y genera la excepcion
Espero puedan ayudarme
Saludos
Carlos