Делаю запрос к базе getrows'ом помещаю данные для построения древовидного списка в массив и затем пытаюсь его построить, а ни фига, раньше то в VB6 было указываешь ключ, ключ родителя, текст и т.д.

а щас как сделать незнаю помогите плиз. Это конечно не полный код но приблизительно так хотел сделать(vData(2,x) id родителя)

Public Function filling_tree()

Dim x, i As Integer

Dim objNode As TreeNode

Dim vData(0, 0) As Object

Dim records As String = "tbl_struc"

vData = creation_array(way_base, records, True)

For x = 0 To UBound(vData, 2)

If vData(2, x) = 0 Then

objNode = frmSotrud.tvw_struc.Nodes.Add("A" & vData(0, x), vData(1, x), 11, 10)

Else

For i = 0 To UBound(vData, 2)

If vData(0, x) = vData(2, i) Then

objNode = objNode.Nodes.Add("A" & vData(0, i), vData(1, i), 11, 10)

objNode = objNode.Parent

Else

End If

Next i

Next x

clsFunctions.ExecuteSelect - функция, возвращающая dataTable по запроcу.

Примерно так

Protected Sub FillTreeView(ByVal ParentID As Integer, ByRef ParentNodesCollection As TreeNodeCollection)

Using dt As Data.DataTable = clsFunctions.ExecuteSelect("SELECT ID, " & _

"Name, IsClickable FROM tbl WHERE ParentID=" & ParentID.toString)

For Each dr As Data.DataRow In dt.Rows

Dim tn As New TreeNode

tn.Text = dr("Name").ToString

If dr("IsClickable") Then

tn.NavigateUrl = "/page.aspx?ID=" & dr("ID").ToString

tn.SelectAction = TreeNodeSelectAction.SelectExpand

Else

End If

FillTreeView(dr("ID"), tn.ChildNodes)

Next

End Using

End Sub