CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Treeview

(1/1)

monkytrox:
Hola amigos como estan........

tengo treeview que se llena con las descripciones de una base de datos , tabla descripciones(cdescripcion,ndescripcion)

con esta instruccion :


--- Código: Text ---                For Each Registro In oTablaConceptos.Rows                 ' agrego el nodo en el segundo nivel                nodo = TVConceptos.Nodes(0).Nodes.Add(Trim(Registro("nConcepto")))                'Me.TVConceptos.ValueMember = (Trim(Registro("cConcepto")))                ' realizo un filtro dentro de la vista                oVista.RowFilter = "CConcepto = " & Registro("CConcepto")                ' ciclo para recorrer la vista previamente filtrada                Dim a As Integer                For a = 0 To oVista.Count - 1                    ' agrego el nodo en el tercer nivel                      nodo.Nodes.Add(Trim(oVista.Item(a).Row("Ndescripcion")))                Next            Next   

con este codigo lleno perfectametne el arbol con el nombre de las descripciones que tengo en sql 2000,  En el procedimiento "AfterSelect" obtengo el valor seleccionado, pero como puedo obtener el codigo de la descripcion (cdescripcion) ya que es ese el valor con el que deseo trabajar no con el que muestro al usuario en el arbol (ndescripcion).


espero me puedan ayudar gracias

jodijo5:
Este es tu codigo con las agregaciones respectivas:

--- Citar ---              For Each Registro In oTablaConceptos.Rows

               ' agrego el nodo en el segundo nivel
               nodo = TVConceptos.Nodes(0).Nodes.Add(registro("cdescripcion"),Trim(Registro("nConcepto")))
               'Me.TVConceptos.ValueMember = (Trim(Registro("cConcepto")))
               ' realizo un filtro dentro de la vista
               oVista.RowFilter = "CConcepto = " & Registro("CConcepto")
               ' ciclo para recorrer la vista previamente filtrada
               Dim a As Integer
               For a = 0 To oVista.Count - 1
                   ' agrego el nodo en el tercer nivel
                     nodo.Nodes.Add(Trim(oVista.Item(a).Row("Ndescripcion")))
               Next
           Next

--- Fin de la cita ---

cosa de que cuando llames al evento AfterSelect tengas algo así:


--- Código: Text ---    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect        MsgBox("Este es el codigo de la descripcion: " & e.Node.Name)    End Sub 
suerte

Navegación

[0] Índice de Mensajes