- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教,为什么目录树右侧的用户名没显示出来呢? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56463)
-- 发布时间：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
-- 发布时间：2014/9/5 17:11:00
--
If u.Type = UserTypeEnum.User Then
If trv2.Nodes.Contains(u.Group) = False Then
-- 发布时间：2014/9/5 17:14:00
--
右边，你要添加用户才有的。
http://www.foxtable.com/help/topics/0607.htm
-- 发布时间：2014/9/5 17:57:00
--
如果我是自定义的用户管理,该如果设置呢?
-- 发布时间：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()
-- 发布时间：2014/9/10 13:53:00
--
不知什么原因,本来是可以进入的窗口,现在又进不去了,提示,
此主题相关图片如下：qq截图20140910135040.jpg
-- 发布时间：2014/9/10 13:55:00
--
登录上图目录树窗口时,出现的
-- 发布时间：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
-- 发布时间：2014/9/10 14:23:00
--
换了代码后,没有错误提示,但是也没有将数据引过来.窗口空白
-- 发布时间：2014/9/10 14:26:00
--
回复9楼，你表里面没有数据吧？例子说明