Dim dtb As New DataTableBuilder("部门角色")

dtb.AddDef("部门", GetType(String), 16)

dtb.AddDef("角色", GetType(String), 16)

dtb.Build()

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.ConnectionName = Mydata

cmd.CommandText = "select sqRole from {用户}"

dt = cmd.ExecuteReader()

\'将授权角色中的每一个部门及角色加入临时表中

For Each dr As DataRow In dt.DataRows

    If dr("sqRole") > "" Then

        For Each gr As String In dr("sqRole").split(",") \'拆分用户表中的的角色列的值

            Dim dr1 As DataRow = DataTables("部门角色").AddNew() \'新增每一个部门角色

            dr1("部门") = gr.substring(0, gr.IndexOf(".")) \'获取部门

             dr1("角色") = gr.Substring(gr.indexof(".") + 1)\'获取角色

        Next

    End If

Next

tr.BuildTree("部门角色", "部门|角色") \'用临时表中的部门角色生成目录树

上面代码生成的部门角色临时表,只是临时用于生成目录树,但会在项目中生成一张表,如何才能让这张表不要显示出来,仅在内存中,

谢谢!