ASP.NET - URGENTE PROBLEMAS DE ASIGNACION

Amigos del Foro necesito su ayuda urgente, me encuentro perdido en con el siguiente problema. Tengo una programacion que me ayudo el foro para asignar valores de una tabla a un treeview... es la siguiente


Private Sub CrearDataSet()

Dim tablaArbol As DataTable

dataSetPlan = New DataSet("dataSetPlan")

tablaArbol = dataSetPlan.Tables.Add("CONTB_PLANCUENTA")

tablaArbol.Columns.Add("PLANCUENTA_NUMERO", GetType(String))

tablaArbol.Columns.Add("PLANCUENTA_DETALLE", GetType(String))

tablaArbol.Columns.Add("PLANCUENTA_MAYORIZA", GetType(String))

InsertarDataRow("Nodo 1", 1, 0)

InsertarDataRow("Nodo 1.1", 2, 1)

InsertarDataRow("Nodo 1.1.1", 3, 2)

InsertarDataRow("Nodo 1.1.2", 4, 2)

InsertarDataRow("Nodo 1.2", 5, 1)

InsertarDataRow("Nodo 2", 6, 0)

InsertarDataRow("Nodo 2.1", 7, 6)

InsertarDataRow("Nodo 2.2", 8, 6)

InsertarDataRow("Nodo 3", 9, 0)

InsertarDataRow("Nodo 3.1", 10, 9)

InsertarDataRow("Nodo 3.2", 11, 9)

End Sub

Private Sub InsertarDataRow(ByVal column1 As String, ByVal column2 As String, ByVal column3 As String)

Dim nuevaFila As DataRow

nuevaFila = dataSetPlan.Tables("CONTB_PLANCUENTA").NewRow()

nuevaFila("PLANCUENTA_NUMERO") = column1

nuevaFila("PLANCUENTA_DETALLE") = column2

nuevaFila("PLANCUENTA_MAYORIZA") = column3

dataSetPlan.Tables("CONTB_PLANCUENTA").Rows.Add(nuevaFila)

End Sub

Private Sub CrearNodosDelPadre(ByVal indicePadre As Integer, ByVal nodePadre As TreeNode)

Dim dataViewHijos As DataView

dataViewHijos = New DataView(dataSetPlan.Tables("CONTB_PLANCUENTA"))

dataViewHijos.RowFilter = dataSetPlan.Tables("CONTB_PLANCUENTA").Columns("PLANCUENTA_MAYORIZA").ColumnName + " = " + indicePadre.ToString()

For Each dataRowCurrent As DataRowView In dataViewHijos

Dim nuevoNodo As New TreeNode

nuevoNodo.Text = dataRowCurrent("PLANCUENTA_NUMERO").ToString().Trim()

If nodePadre Is Nothing Then

TreeView1.Nodes.Add(nuevoNodo)

Else

nodePadre.ChildNodes.Add(nuevoNodo)

End If

CrearNodosDelPadre(Int32.Parse(dataRowCurrent("PLANCUENTA_DETALLE").ToString()), nuevoNodo)

Next dataRowCurrent

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

CrearNodosDelPadre(0, Nothing)

End Sub



EL ASUNTO ES QUE YO TENGO GENERADO UN DATASET QUE TRAE LOS DATOS QUE NECESITO Y NO SE COMO REEMPLAZAR EN LA PROGRAMACION QUE ESTA ANTES PARA QUE ME PONGA LOS DATOS QUE NECESITO.
LA PROGRAMACION QUE TRAE LA INFORMACION DE LA TABLA AL DATASET ES LA SIGUIENTE: POR QUE SI YA TENGO EL DATASET CREADO ME IMAGINO QUE EN LA PROGRAMACION ORIGINAL NO TENDRIA QUE UTILIZAR LA PARTE DE CREARDATASET

CAPA PRESENTACION

Protected Sub PlanDataset()

Try

Dim ds As DataSet

Dim obj As New Contabilidad.Negocio.Contabilidad.Negocio.ClsPlanNegocio()

ds = obj.PlanDataset()

Catch ex As Exception

fnAlerta(ex.Message)

End Try

End Sub


CAPA DATOS

Public Function PlanDataset() As DataSet

Dim ds As DataSet

Dim Query As String

Query = " SELECT PLANCUENTA_NUMERO, PLANCUENTA_DETALLE,PLANCUENTA_MAYORIZA "

Query += " FROM CONTB_PLANCUENTA "

ds = Contabilidad.Datos.ClsDatos.ExecuteQuery(Query)

Return ds

End Function


CAPA NEGOCIO


Public Function PlanDataset() As DataSet

Dim obj As New Datos.Contabilidad.Datos.ClsPlandatos()

Return obj.PlanDataset()

End Function

Hola,

Te dejo una pista acorde a lo que yo veo. Para introducir datos tu utilizas esta sentencia:
InsertarDataRow("Nodo 1", 1, 0)

Estas sentencias las debes de cambiar por un procedimiento que te lea de tu dataset y genere los datos que necesitas para el treeview.

PD: En teoria tu mismo dataset deberia de valer si solo tiene los datos que deseas mostrar. No haria falta que lo transormaras.

PD2: Supongo que los procedimientos de control del treeview tambien valdran, ya que lo unico que cambias son los datos, no la estructura de los mismos.

Saludos