主题：目录树加图标

怎样在目录树前加图标，如下：

此主题相关图片如下：qq截图20141016230917.png

 

目录树代码是：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName=“数据库”

cmd.CommandText = "Select  学期,班级,学生姓名 From {学生信息}

dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "班级|学生姓名")

怎样修改，请老师指点，谢谢！

 节点.IconFile = "test.ico"

 

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

 

有点甜老师帮我看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.zip

参考代码

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "Select  学期,班级,a.学生姓名,性别 From {缴费信息} a inner join {学生信息} b on a.学生姓名 = b.学生姓名 where 学期 = '2014年(秋)'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "学期|班级|学生姓名")

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 2 Then
        If nd.DataRow("性别") = "男" Then
            nd.Ic
        Else
            nd.Ic
        End If
    Else
        nd.Ic
    End If
Next

有点甜老师有错误提示

此主题相关图片如下：qq截图20141017001051.png

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "Select  学期,班级,a.学生姓名,性别 From {缴费信息} a inner join {学生信息} b on a.学生姓名 = b.学生姓名 where 学期 = '2014年(秋)'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "学期|班级|学生姓名")

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 2 Then
        If nd.DataRow("性别") = "男" Then
            nd.IconFile = "Man.ico"
        Else
            nd.IconFile = "Woman.ico"
        End If
    Else
        nd.Ic
    End If
Next

还有错误

此主题相关图片如下：qq截图20141017001738.png

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "Select  学期,班级,a.学生姓名,性别 From {缴费信息} a inner join {学生信息} b on a.学生姓名 = b.学生姓名 where 学期 = '2014年(秋)'"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "学期|班级|学生姓名")

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Level = 2 Then
        If nd.DataRow("性别") = "男" Then
            nd.IconFile = "Man.ico"
        Else
            nd.IconFile = "Woman.ico"
        End If
    Else 
         nd.IconFile = "Man.ico"
    End If
Next

有点老师不好意思，只在学生姓名上加图标

此主题相关图片如下：qq截图20141017002721.png

 不能，必须也给其他节点也加入图标，当然，你可以用一个透明的图标。