Visual Basic.NET - MANEJO DE TREEVIEW

   
Vista:

MANEJO DE TREEVIEW

Publicado por Hector (46 intervenciones) el 19/01/2015 13:17:32
eSTIMADO:
TENGO UN TREEVIEW QUE SE CONECTA A UNA BASE DE DATOS SQLSERVER DONDE PUEDO HACER LLAMADO LO QUE SE REGISTRA PERO EL PROBLEMA ES CUANDO QUIERO HACER VALIDAR LOS CHECK Y QUE SE VEAN REFLEJADO EN LA CASILLAS.
ALGUIEN ME PUEDE ORIENTAR Y DEJE EL CODIGO.



Dim cn As SqlConnection

'Adaptadores para categorias e produtos
Dim daCategorias As SqlDataAdapter
Dim daProdutos As SqlDataAdapter
'O DataSet
Dim ds As DataSet
'Um DataView para os produtos
Dim dvProdutos As DataView

'define string de conexao com o SQL Server , banco de dados Northwind

'cria uma nova conexao
cn = New SqlConnection(conexao)

'define os Adaptadores para categorias e produtos
daCategorias = New SqlDataAdapter("Select * from HCE_PlanificacionHistoriaEnfermeria", cn)
daProdutos = New SqlDataAdapter("Select * from HCE_PlanEnfermeria", cn)

'define o DataSet
ds = New DataSet

'preencher o DataSet com categorias e produtos
Try
daCategorias.Fill(ds, "HCE_PlanificacionHistoriaEnfermeria")
daProdutos.Fill(ds, "HCE_PlanEnfermeria")
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try

'definir o dataview para produtos
dvProdutos = ds.Tables("HCE_PlanEnfermeria").DefaultView

'TreeView - define o No Raíz
Me.TreeView1.Nodes.Add("HCE_PlanificacionHistoriaEnfermeria")

'Preenchendo o TreeView
Dim dr As DataRow
Dim nodo As TreeNode

'percorre cada linha na tabela categorias
For Each dr In ds.Tables("HCE_PlanificacionHistoriaEnfermeria").Rows

'preencher todas as categorias com o nome - CategoryName
nodo = TreeView1.Nodes(0).Nodes.Add(dr("HCE_Nombre_EnfermeriaPlanificado"))
'preencher os produtos para cada categoria filtrando por codigo de categoria
dvProdutos.RowFilter = "HCE_Id_EnfermeriaPlanificacdo = " & dr("HCE_Id_EnfermeriaPlanificado")

'preenche os nos do treeview com o nome do produto para cada categoria
Dim i As Integer
For i = 0 To dvProdutos.Count - 1
nodo.Nodes.Add(dvProdutos.Item(i).Row("HCE_Hora_PlanEnfermeria"))
'Me.TreeView1.CheckBoxes = dvProdutos.Item(i).Row("HCE_Estado_PlanEnfermeria")
If dvProdutos.Item(i).Row("HCE_Estado_PlanEnfermeria") = True Then
'nodo.Nodes.ReferenceEquals(dvProdutos.Item(i).Row("HCE_Estado_PlanEnfermeria")) = True



End If


Next
Next
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder