Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教,为什么目录树右侧的用户名没显示出来呢?


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

主题：[求助]请教,为什么目录树右侧的用户名没显示出来呢?
美女呀，离线，留言给我吧！
rophy0952
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		[求助]请教,为什么目录树右侧的用户名没显示出来呢?  发帖心情 Post By：2014/9/5 17:06:00 [显示全部帖子]

如题,键入以下代码后,右侧目录树的用户名没有显示出来,是什么原因呢?

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权表","分组|权限")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then 
        If trv2.Nodes.Contains(u.Group) = False Then
            trv2.Nodes.Add(u.Group)
        End If
        trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140905170250.jpg
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/9/5 17:57:00 [显示全部帖子]

如果我是自定义的用户管理,该如果设置呢?

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/9/10 13:53:00 [显示全部帖子]

不知什么原因,本来是可以进入的窗口,现在又进不去了,提示,

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140910135040.jpg
图片点击可在新窗口打开查看
请问是什么情况呢?
 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/9/10 13:55:00 [显示全部帖子]

登录上图目录树窗口时,出现的

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/9/10 14:23:00 [显示全部帖子]

换了代码后,没有错误提示,但是也没有将数据引过来.窗口空白

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/9/10 22:17:00 [显示全部帖子]

有数据,查了一下才发现,重新打开表的时候,表里的数据没有加载进来,我也没有设加载,怎么会这样呢?

 回到顶部
美女呀，离线，留言给我吧！
rophy0952
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00 		  发帖心情 Post By：2014/9/11 9:19:00 [显示全部帖子]

只是在afteropenproject的代码中写了下面的代码,好像没有限制加载呀!

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return 
End If
Forms("主界面").Open()
MainTable = Tables("物料信息表")
If User.Type <> UserTypeEnum.Developer
    TableCaptionVisible = False
End If
Forms("导航栏").Open()
Forms("标题栏").Open()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 5 次数据查询