pROBLEMAS CON TREEvIEW

[Giufantasy]

aMIGOS OJALA ME AYUDEN:

resulta que en un formulario tengo un treeView el cual se deberia cargar con el nombre del menu y los formularios que este tiene.

Las tablas son Menu que tiene los campos(idmenu, nombre) y dormulario que tiene lo campos(id_form, nombre y idmenu), entonces al momento de entrar al formulario deberian mostrarse esos datos en el treeview.
y cuando le haga doble ckick al nombre del menu este se vaya a un textBox en especifico.

Estoy trabajando en vb.net con visual studio 2005 y sqlServer 2000

Gracias

[eperedo]

Para obtener el valor con doble click podrías hacerlo en el evento MouseDobleClick

Código:

Private Sub ListView1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        MessageBox.Show(Me.ListView1.Items(Me.ListView1.FocusedItem.Index).Text)
End Sub

Para llenar el listview desde una base de datos lo puedes hacer mediante un for o foreach, te dejo un link donde muestran como hacerlo.

[Giufantasy]

Amigo tengo que llenarlo EN UN TREEVIEW...

LO QUE EXPLIQUE MAS ARRIBA Y NO HE PODIDO

ESTE ES EL CODIGO QUE TENGO, PERO NO PUEDO PORQUE ME MUESTRA SOLO LOS DE UNA TABLA

*********** CHEQUEN LA CONSULTA ****************

Dim cadena As String
cadena = "Data Source = BRAVO; Initial Catalog = dbmultiusuario; Integrated Security=SSPI; Trusted_Connection=false; user id = glopez ; Password = lopez"
Dim cnn As New SqlConnection(cadena)
Dim idsistema As String
idsistema = Me.TxtCodigoSistemaFormulario.Text
Dim consulta As String
consulta = "SELECT M.IDMENU, F.CODIGO_FORM FROM MENU M, FORMULARIO F, SISTEMA S WHERE (S.EMPRESA = M.EMPRESA) AND (S.EMPRESA = F.EMPRESA) AND (S.IDSISTEMA = F.IDSISTEMA) AND (S.IDSISTEMA = M.IDSISTEMA) AND M.EMPRESA = '02' AND M.IDSISTEMA = '" & idsistema & "'"

''''''''ADAPTADORES
daMenu = New SqlDataAdapter("select * from MENU", cnn)
daFormularios = New SqlDataAdapter("Select * from FORMULARIO", cnn)
daConsulta = New SqlDataAdapter("SELECT M.IDMENU, F.CODIGO_FORM FROM MENU M, FORMULARIO F, SISTEMA S WHERE (S.EMPRESA = M.EMPRESA) AND (S.EMPRESA = F.EMPRESA) AND (S.IDSISTEMA = F.IDSISTEMA) AND (S.IDSISTEMA = M.IDSISTEMA) AND M.EMPRESA = '02' AND M.IDSISTEMA = '" & idsistema & "'", cnn)

''''''''DATASET
dsdatos = New DataSet

''''''''LLAMAR AL DATASET
daMenu.Fill(dsdatos, "MENU")
daFormularios.Fill(dsdatos, "FORMULARIO")
daConsulta.Fill(dsdatos, "FORMULARIO")
daConsulta.SelectCommand.CommandText = "Select * from MENU"
daConsulta.Fill(dsdatos, "MENU")
daConsulta.SelectCommand.CommandText = "Select * from SISTEMA"
daConsulta.Fill(dsdatos, "SISTEMA")

''''''''COMO LO VEREMOS
dvResultado = dsdatos.Tables("MENU").DefaultView

''''''''EL TREEVIEW - NODO RAIZ
Me.TVFormulario.Nodes.Add("SELECCIONAR")

''''''''LLENAR EL TREEVIEW
Dim dr As DataRow
Dim nodo As TreeNode
For Each dr In dsdatos.Tables("MENU").Rows

'''''''''LLENAR TODOS LOS MENU CON SUS ID
nodo = TVFormulario.Nodes(0).Nodes.Add(dr("IDMENU"))

'''''''''LLENAR LOS FORMULARIOS DE CADA MENU
dvResultado.RowFilter = "INDICE = " & dr("INDICE")
Dim i As Integer
For i = 0 To dvResultado.Count - 1
nodo.Nodes.Add(dvResultado.Item(i).Row("CODIGO_FOR M"))
Next

Next

[eperedo]

eee... si sorry por no leer bien y por responder tarde...
Bueno tengo un código sobre cargar treeview desde 2 tablas relacionadas (usando bd northwind), el código fuente y la BD está para descargarlo en mi blog en la sección descargas.

Espero te ayude

[Giufantasy]

Gracias por la ayuda, pero no encuentro la seccion Descarga
Donde Esta?
Para bajar el ejemplo del TreeView

Saludos

[eperedo]

La URL de mi blog está en mi firma, bueno ahí te la dejo igual.
http://eperedo.comze.com/descargas/