Foxtable(狐表)用户栏目专家坐堂 → 如何让临时表不显示出来?


  共有4295人关注过本帖树形打印复制链接

主题:如何让临时表不显示出来?

帅哥哟,离线,有人找我吗?
happyft
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
如何让临时表不显示出来?  发帖心情 Post By:2022/6/28 16:17:00 [只看该作者]

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("部门角色", "部门|角色") '用临时表中的部门角色生成目录树


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

谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/28 16:21:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
HappyFt
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2022/6/28 16:25:00 [只看该作者]

谢谢!刚发完后来找到了

 回到顶部