TreeView与ListView控件的关联操作

[wo8352490123]

我在一个窗体上，左边是TreeView控件，右边是ListView控件，左边我已经从数据库动态生成了树形目录，如何编写代码：通过双击左边的树形目录根节点，使它的子节点的内容在ListView上一大图标的形式显示？先谢谢了！

[xunis]

吼吼 稍等代码就来

[xunis]

  ''' <summary>
    ''' 加载主节点
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub LoadTreeView()
        Dim strSQL As String = "select * from Departments"
        Dim ds As DataSet = GetDataSet(strSQL)
        Dim dt As DataTable = ds.Tables(0)
        'Dim dtTable As DataTable = dtSet.Tables(0)
        Dim i As Integer
        '遍历所有的数据
        For i = 0 To dt.Rows.Count - 1
            '寻找主节点 A 
            If dt.Rows(i).Item("PDepID") = "A" Then
                Dim tNode As New TreeNode
                '给主节点赋名字
                tNode.Name = dt.Rows(i).Item("DepID")
                tNode.Text = dt.Rows(i).Item("DepName")
                '将主节点加载到树上
                Me.trvData.Nodes.Add(tNode)
                '调用加载子节点方法 将所有的子节点加载到主节点下
                LoadSubTree(dt, tNode)
                tNode = Nothing
            End If
        Next
    End Sub

    ''' <summary>
    ''' 加载子节点
    ''' </summary>
    ''' <param name="dtTable"></param>
    ''' <param name="tNode"></param>
    ''' <remarks></remarks>
    Private Sub LoadSubTree(ByVal dtTable As DataTable, ByVal tNode As TreeNode)
        Dim i As Integer
        '遍历所有的数据
        For i = 0 To dtTable.Rows.Count - 1
            '寻找主节点
            If tNode.Name = dtTable.Rows(i).Item("PDepID") Then
                Dim sNode As New TreeNode
                '给子节点赋名字
                sNode.Name = dtTable.Rows(i).Item("DepID")
                sNode.Text = dtTable.Rows(i).Item("DepName")
                '将子节点加载到主节点上
                tNode.Nodes.Add(sNode)
                '递归调用 自己调用自己加载全部子节点
                LoadSubTree(dtTable, sNode)
                sNode = Nothing
            End If
        Next
    End Sub

    ''' <summary>
    ''' 树形菜单查询
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub trvData_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles trvData.AfterSelect
        '清空输入区
        btnClear_Click(sender, e)
        Dim tNode As New TreeNode
        Dim sNode As New TreeNode
        Dim strSQL As String = ""
        '校驗密碼和用戶名的SQL語句
        Try
            strSQL = "SELECT * FROM VWEmployees WHERE DepID like '%" & trvData.SelectedNode.Name & "%' order by EmpID"
            Dim ds As DataSet = GetDataSet(strSQL)
            If ds.Tables.Item(0).Rows.Count = 0 Then
                MessageBox.Show("资料不存在")
            Else
                '显示数据
                Me.dgvShowData.DataSource = ds.Tables.Item(0).DefaultView
                '中文标题
                chineseTitle()
            End If
        Catch ex As Exception
            MessageBox.Show("GetEmployee出错！")
        End Try
    End Sub

这个是加载树形菜单的代码

[xunis]

  Public Function GetDataSet(ByVal strSQL As String) As DataSet
        Dim ds As DataSet = New DataSet '聲明數據表  Dim ds As  New DataSet
        Try
            '初始化適配器
            Dim da As SqlDataAdapter
            '打開數據庫鏈接
            If g_CN Is Nothing Then
                GetConnection()
            End If
            ds.Clear()
            '將數據庫和適配器鏈接在一起
            da = New SqlDataAdapter(strSQL, g_CN)
            '將數據放到數據集中
            da.Fill(ds)
            Return ds
        Catch ex As Exception
            MessageBox.Show("GetDataSet出错！")
        End Try
        Return ds
    End Function

[wo8352490123]

我想要的是ListView那边的代码，TreeView我已经做好了

[xunis]

        '获得的datatable
        Dim dtTable As DataTable = cls.GetDataTable(strSQL)
        Dim i As Integer
        '每次查询清空listview菜单
        Me.lsvProjects.Items.Clear()
        Try
            Dim lstItem As ListViewItem
            'for循环加载每行数据
            For i = 0 To dtTable.Rows.Count - 1
                lstItem = New ListViewItem
                lstItem.Tag = dtTable.Rows(i).Item("ProjectID")
                lstItem.Text = dtTable.Rows(i).Item("ProjectID")
                lstItem.SubItems.Add(dtTable.Rows(i).Item("ProjectName"))
                lstItem.SubItems.Add(dtTable.Rows(i).Item("StartDate"))
                lstItem.SubItems.Add(dtTable.Rows(i).Item("EndDate"))
                lstItem.SubItems.Add(dtTable.Rows(i).Item("UserID"))
                lstItem.SubItems.Add(dtTable.Rows(i).Item("UserTel"))
                lstItem.SubItems.Add(dtTable.Rows(i).Item("UserSex"))
                lstItem.SubItems.Add(dtTable.Rows(i).Item("IsPM"))

                '加载行
                Me.lsvProjects.Items.Add(lstItem)
            Next

刚发错了！

[xunis]

答案你应该知道了 然后看看这两个帖子吧
http://topic.csdn.net/u/20090805/16/790a9c4f-e2c9-4426-8e04-c0429b7c66e6.html?seed=761925783&r=59321957#r_59321957

http://topic.csdn.net/u/20090824/18/3be17551-5973-4dbb-b56e-eff55b3a0776.html?23081

[xunis]

既然你已经会使用treeview了

那请看这个帖子 谢谢 该结贴了！
http://topic.csdn.net/u/20090818/15/046a266a-5688-449a-bd12-9e8ef1a8e74e.html

[Forrest23]

Private Sub TreeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick

        For i As Integer = 0 To e.Node.Nodes.Count - 1
            Me.ListView1.Items.Add(e.Node.Nodes(i).Text.Trim)
        Next

End Sub

[wo8352490123]

你太强悍了！！！！！！

[wo8352490123]

这个我先研究下。。。。。

[wo8352490123]

5楼，代码全点啊，没怎么看明白

[hrbwgs1111]

借楼主的帖子发下我的问题，如有打扰见谅

http://topic.csdn.net/u/20090825/15/71d11f43-08a6-4f04-8152-a0737dddd2d4.html?seed=1079724398&r=59322234#r_59322234

[xunis]

.... 还不够全 把后面的红色换成你的数据库字段

lstItem.Tag = dtTable.Rows(i).Item("ProjectID")
lstItem.Text = dtTable.Rows(i).Item("ProjectID")
这两行是第一个字段
其余按照数据库字段的顺序忘下写