none
Tengo un problema cuando realizo un listbox.SelectItem....y un combobox...pues tengo una relacion de 1 a N RRS feed

  • Pregunta

  •  

    Hola...pues en un combo cargo...lo que tiene mi tabla maestra....luego cuando yo selecciono un item del combo me lista....los nombres de mi tabla q tiene la llave foranea...asi...pues ahi no tengo problema

    Private Sub mttozonarecreo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    'TODO: esta línea de código carga datos en la tabla 'RecreoZonaInfraDS.ZonaInfra' Puede moverla o quitarla según sea necesario.

    Me.ZonaInfraTableAdapter1.Fill(Me.RecreoZonaInfraDS.ZonaInfra)

    'TODO: esta línea de código carga datos en la tabla 'RecreoZonaInfraDS.recreo' Puede moverla o quitarla según sea necesario.

    Me.RecreoTableAdapter1.Fill(Me.RecreoZonaInfraDS.recreo)

    ' LLenar el combobox con los nombres de la zona de infraestructura

    Dim oDataRow As DataRow

    For Each oDataRow In Me.RecreoZonaInfraDS.ZonaInfra.Rows

    Me.cmb.Items.Add(oDataRow("nombre"))

    Next

    End Sub

    Private Sub cmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb.SelectedIndexChanged

    ' cada vez que se selecciona un valor en el combo se produce este evento

    ' limpiar los valores del listbox

    Me.lbxNombres.Items.Clear()

    Dim drFilaPadre As DataRow

    'Obtener la fila de la tabla maestra: zona Infraestructura

    drFilaPadre = Me.RecreoZonaInfraDS.ZonaInfra.Rows(Me.cmb.SelectedIndex)

    Dim drFilasHijas() As DataRow

    ' Obtener las filas hijas de la tabla zona de recreo,Gracias a la relacion...

    drFilasHijas = drFilaPadre.GetChildRows("FK_recreo_ZonaInfra")

    Dim drFila As DataRow

    'rellenar el listbox con valores de las filas hijas

    For Each drFila In drFilasHijas

    Me.lbxNombres.Items.Add(drFila("nombrerec"))

    Next

    End Sub

     

    Bueno mi problema radica en q...cuando yo quiero seleccionar cada dato de mi lista....quiero q me la coloque en un texbox..pero cuando...y a la  vez el nombre del como asociado...a esos datos de la lista..por ejemplo yo quiero saber mi zona 1 tiene muchas zonas de recreo... y estas zonas de recreo cuando yo realizo mi selectIndex me la agregue en mi texbox..para yo poder  realizar el ACME....agregar,modificar,eliminar...ahhh otra cosa yo utilizo el diseñador de dataset q trae .net...no lo realizo con codigo....el codigo que tengo es el siguiente alguien me puede ayudar con mi..problema

     

    Private Sub lbxNombres_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lbxNombres.MouseClick

    Dim zona As DataRowView

    'Dim zonainfra As DataRowView

    Try

    Try

    zona = Me.RecreoBindingSource1.Item(Me.lbxNombres.SelectedIndex)

    Catch ex As Exception

    Exit Sub

    End Try

    Me.txbNombre.Text = zona(1)

    Catch ex As Exception

    MsgBox("Error a la hora de cargar datos!! " + ex.Message, MsgBoxStyle.Critical, "ERROR")

    End Try

    End Sub

     

     

    • Cambiado Enrique M. Montejo miércoles, 4 de mayo de 2011 13:41 acceso a datos (De:Lenguaje VB.NET)
    martes, 1 de julio de 2008 19:36