Urgente!!!!!!!!! Treeview
Publicado por Noreen (134 intervenciones) el 15/12/2004 22:09:31
Tengo esto, yo lo que quiero es crear un treeview, tengo el parent en este caso y le anado un child, pero la informacion aparece de corrida y nunca como un treeview
ej. categoria BillPAy alguien sabe que me falta?
cn.Close()
cn.Open()
Dim data As DataSet = New DataSet("datos")
Dim dataTable As DataTable = data.Tables.Add("dataList")
dataTable.Columns.Add("category", Type.GetType("System.String"))
Dim datarow As DataRow
Dim mystring As String = "Select distinct(Category) from usercategoriesrelationship where user_id= '" & "SSCS" & "'"
Dim cmd As New OdbcCommand(mystring, cn)
Dim nodesupp, nodeProd As TreeNode
Dim rowsupp, rowprod As DataRow
Dim reader As OdbcDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If reader.Read = True Then
datarow = dataTable.NewRow
datarow(0) = reader.GetValue(0)
dataTable.Rows.Add(datarow)
End If
nodesupp = New TreeNode()
nodesupp.Text = datarow.Item(0)
TreeView2.SelectExpands = True
' TreeView2.SelectedNodeIndex = 1
nodesupp.ID = "yo"
TreeView2.Nodes.Add(nodesupp)
nodeProd = New TreeNode()
nodeProd.Text = "Noreen"
nodeProd.ID = "Noreen"
nodesupp.Nodes.Add(nodeProd)
TreeView2.BackColor = Color.Red
TreeView2.BorderColor = Color.Green
TreeView2.AutoPostBack = True
ej. categoria BillPAy alguien sabe que me falta?
cn.Close()
cn.Open()
Dim data As DataSet = New DataSet("datos")
Dim dataTable As DataTable = data.Tables.Add("dataList")
dataTable.Columns.Add("category", Type.GetType("System.String"))
Dim datarow As DataRow
Dim mystring As String = "Select distinct(Category) from usercategoriesrelationship where user_id= '" & "SSCS" & "'"
Dim cmd As New OdbcCommand(mystring, cn)
Dim nodesupp, nodeProd As TreeNode
Dim rowsupp, rowprod As DataRow
Dim reader As OdbcDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If reader.Read = True Then
datarow = dataTable.NewRow
datarow(0) = reader.GetValue(0)
dataTable.Rows.Add(datarow)
End If
nodesupp = New TreeNode()
nodesupp.Text = datarow.Item(0)
TreeView2.SelectExpands = True
' TreeView2.SelectedNodeIndex = 1
nodesupp.ID = "yo"
TreeView2.Nodes.Add(nodesupp)
nodeProd = New TreeNode()
nodeProd.Text = "Noreen"
nodeProd.ID = "Noreen"
nodesupp.Nodes.Add(nodeProd)
TreeView2.BackColor = Color.Red
TreeView2.BorderColor = Color.Green
TreeView2.AutoPostBack = True
Valora esta pregunta


0