主题：基于数据库里面的数据生成目录树

老师，下面这个是基于已经加载的数据生成目录树，如何基于后台这个表的所有数据生成目录树？因为有权限控制，又不希望它真的在表里都加载？

DataTables("organList").load
     Dim dt1 As DataTable = DataTables("organList")
     For Each dr1 As DataRow In dt1.datarows
        If dr1.IsNull("superName") Then
             dr1("fuZhu") = format(dr1("_Identify"), "000")
             Functions.Execute("AddChildren1",dr1,dt1)
        End If
     Next