如何在同一表中为父子关系填充树形视图

Id    Name     ParentId 
1     File     NULL
2     Open     1
3     Save     1
4     Exit     1
5     Edit     NULL
6     Cut      5
7     Copy     5

File
----- Open
----- Save
----- Exit
Edit
----- Cut
----- Copy

Sub AddTreeItems(id as Integer, node as TreeNode)
    dim s = id.ToString
    If id = 0 Then
        s = \"NULL\"
    End If
    r as new Query(\"select * from table where parent =\" & s)
    While r.read()
        dim n as new TreeNode(r[\"name\"])
        node.Add(n)
        AddTreeItems(r[\"id\"],n)
    End While
End Sub