Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于给目录树的某层加图标，看了程版的视频摸着做的


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

主题：关于给目录树的某层加图标，看了程版的视频摸着做的
帅哥哟，离线，有人找我吗？
2
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00 		关于给目录树的某层加图标，看了程版的视频摸着做的  发帖心情 Post By：2013/12/3 11:49:00 [显示全部帖子]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sql As String
Dim dt As DataTable
sql = "SELECT 员工ID,员工姓名,所在部门,职位 From {员工基本信息表}"
dt = Functions.Execute("OutSqlCommand",sql)
trv.BuildTree(dt,"所在部门|职位|员工ID")
trv.StopRedraw '停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 2 Then '如果是二级节点
        nd.Text = nd.text & " " & nd.DataRow("员工姓名")
        nd.IconFile= ProjectPath & "Images\boss.ico"
    End If
Next
trv.ResumeRedraw '恢复绘制目录树
怎么样限制只给最后一层加图标呢？？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20131203114628.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
2
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00 		  发帖心情 Post By：2013/12/3 19:37:00 [显示全部帖子]

谢射程版，bin,逛逛，排名不分先后！

 回到顶部
帅哥哟，离线，有人找我吗？
2
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00 		  发帖心情 Post By：2013/12/7 13:29:00 [显示全部帖子]

谢程版，搞定了！
'''
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim sql As String
Dim dt As DataTable
sql = "SELECT [用户ID],[用户名],[所属组],[角色],[性别] From {系统管理员表}"
dt = Functions.Execute("OutSqlCommand",sql)
trv.BuildTree(dt,"所属组|角色|用户ID")
trv.StopRedraw '停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 0 Then '如果是一级节点
        nd.IconFile= ProjectPath & "Images\0boss.ico"
    End If
    If nd.Level = 1 Then '如果是二级节点
        nd.IconFile= ProjectPath & "Images\1boss.ico"
    End If
    If nd.Level = 2 Then '如果是三级节点
        If nd.DataRow("性别")="男"
            nd.IconFile= ProjectPath & "Images\mboss.ico"
        Else If  nd.DataRow("性别")="女"
            nd.IconFile= ProjectPath & "Images\wboss.ico"
        End If
        nd.Text = nd.text & " " & nd.DataRow("用户名")
    End If
Next
trv.ResumeRedraw '恢复绘制目录树
 回到顶部
帅哥哟，离线，有人找我吗？
2
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：558 积分：5937 威望：0 精华：0 注册：2013/7/11 17:39:00 		  发帖心情 Post By：2013/12/9 21:49:00 [显示全部帖子]

不知道程版还看不看得到，您的权限表有哪些字段呢，我想参考下，我的表列有：用户名，表名，列名，权限。感觉您的比系统里的例子更符合使用习惯。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询