hi all
i have a VB code to populate tree view from database.my code is
If rec2.EOF = False And rec2.BOF = False Then
Do While rec2.EOF = False
If dept1 <> rec2.Fields(0) Then
d1 = d1 + 1
TreeView1.Nodes.Add , , "*" & CStr(rec2.Fields(0)) & "*", rec2.Fields(0)
If UCase(rec2.Fields(2)) = "ONE" Then
TreeView1.Nodes.Add "*" & rec2.Fields(0) & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 3) & " " & rec2.Fields(4)
one1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "TWO" Then
TreeView1.Nodes.Add "*" & one1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 5) & " " & rec2.Fields(4)
two1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "THREE" Then
TreeView1.Nodes.Add "*" & two1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 7) & " " & rec2.Fields(4)
three1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "FOUR" Then
TreeView1.Nodes.Add "*" & three1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 9) & " " & rec2.Fields(4)
four1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "FIVE" Then
TreeView1.Nodes.Add "*" & four1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 11) & " " & rec2.Fields(4)
five1 = rec2.Fields(3)
End If
dept1 = rec2.Fields(0)
Else
If UCase(rec2.Fields(2)) = "ONE" Then
TreeView1.Nodes.Add "*" & rec2.Fields(0) & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 3) & " " & rec2.Fields(4)
one1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "TWO" Then
TreeView1.Nodes.Add "*" & one1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 5) & " " & rec2.Fields(4)
two1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "THREE" Then
TreeView1.Nodes.Add "*" & two1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 7) & " " & rec2.Fields(4)
three1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "FOUR" Then
TreeView1.Nodes.Add "*" & three1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 9) & " " & rec2.Fields(4)
four1 = rec2.Fields(3)
ElseIf UCase(rec2.Fields(2)) = "FIVE" Then
TreeView1.Nodes.Add "*" & four1 & "*", tvwChild, "*" & CStr(rec2.Fields(3)) & "*", Left(rec2.Fields(1), 11) & " " & rec2.Fields(4)
five1 = rec2.Fields(3)
End If
dept1 = rec2.Fields(0)
End If
rec2.MoveNext
Loop
End If
End Sub
What I have tried:
treeview is not populating plese someone help me