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("部门角色", "部门|角色") '用临时表中的部门角色生成目录树
上面代码生成的部门角色临时表,只是临时用于生成目录树,但会在项目中生成一张表,如何才能让这张表不要显示出来,仅在内存中,
谢谢!