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


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

主题:[求助]请教,为什么目录树右侧的用户名没显示出来呢?

美女呀,离线,留言给我吧!
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
图片点击可在新窗口打开查看

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/9/5 17:11:00 [只看该作者]

If u.Type = UserTypeEnum.User Then 
        If trv2.Nodes.Contains(u.Group) = False Then
   调试一下看看,或者上例子
   不成立吧

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/5 17:14:00 [只看该作者]

 右边,你要添加用户才有的。

 

 http://www.foxtable.com/help/topics/0607.htm

 


 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/5 18:00:00 [只看该作者]

这样写

 

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权表","分组|权限")
Trv1.Nodes(0).Expand()

 

trv1.BuildTree("用户表","分组|用户名")
trv2.ExpandAll()


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


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

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

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140910135040.jpg
图片点击可在新窗口打开查看
请问是什么情况呢?

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


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/10 14:00:00 [只看该作者]

 

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权表","分组|权限")
If Trv1.Nodes.Count > 0 Then Trv1.Nodes(0).Expand()

 

trv2.BuildTree("用户表","分组|用户名")
trv2.ExpandAll()

 

http://www.foxtable.com/help/topics/1057.htm

 


 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/9/10 14:26:00 [只看该作者]

 回复9楼,你表里面没有数据吧?例子说明

 回到顶部
总数 14 1 2 下一页