主题：关于treeview的难题

第一列                               第二列

CP-WG-JSG-0210       B-WG-WGBJ-0210
B-WG-WGBJ-0210      B-WG-TJ-0003

 

 

就这两行数据，代码就不能通过,这种数据不合规范吗？

 

此主题相关图片如下：screenshot.jpg

代码改为：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim lst1 As List(of String) = DataTables("表A").GetUniqueValues("","第一列")
Dim lst2 As List(of String) = DataTables("表A").GetUniqueValues("","第二列")
Dim dic As New Dictionary(Of String, WinForm.TreeNode)
Dim tnd As WinForm.TreeNode
trv.Nodes.Clear()
For Each Val As String In Lst1
    If lst2.Contains(val) = False Then
        tnd = trv.Nodes.Add(val,val)
        dic.Add(val,tnd)
    End If
Next

For Each dr As DataRow In DataTables("表A").Select("", "_SortKey")
    If dic.ContainsKey(dr("第一列")) Then
         tnd = dic(dr("第一列")).Nodes.Add(dr("第二列"), dr("第二列"))
         If dic.ContainsKey(dr("第二列")) Then
            dic.Remove(dr("第二列"))
         End If
         dic.Add(dr("第二列"),tnd)
    End If
Next

 

输入的时候，必须按顺序输入，也就是父在子之前。

输入的时候，必须按顺序输入，也就是父在子之前。

 

 

实际操作避免不了先输入子，再输入父的，比如做自行车的企业，好多零件是先有的，只是后面工序的颜色、装配和包装不一样而已，有没有更稳定的方案？

我用_Identify也不行

用_Sortkey就是考虑了有可能先输入子再输入父的情况，因为用SortKey可以插入和移动行。

 

可以尝试一下这个，对于顺序没有任何要求，可惜Nodes没有contains方法，否则应该会写得更精简：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tnd As WinForm.TreeNode
trv.Nodes.Clear()
For Each dr As DataRow In DataTables("表A").DataRows
    Dim lst As New List(of String)
    lst.Add(dr("第二列"))
    Do
        lst.Insert(0,dr("第一列"))
        dr = DataTables("表A").Find("第二列 = '" & dr("第一列") & "'")
        If dr is Nothing Then
            Exit Do
        End If
    Loop
    Dim Nodes As Object = trv.Nodes
    For Each val As String In lst
        Dim nm As String = ""
        For Each nd As WinForm.TreeNode In Nodes
            If nd.Name = Val Then
                nm = val
                Exit For
            End If
        Next
        If nm = ""
            nodes.Add(val,val)
        End If
        Nodes = nodes(val).nodes
    Next
Next

 

下次给Nodes 加个Contains方法，代码可以简化为：

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim tnd As WinForm.TreeNode
trv.Nodes.Clear()
For Each dr As DataRow In DataTables("表A").DataRows
    Dim lst As New List(of String)
    lst.Add(dr("第二列"))
    Do
        lst.Insert(0,dr("第一列"))
        dr = DataTables("表A").Find("第二列 = '" & dr("第一列") & "'")
        If dr is Nothing Then
            Exit Do
        End If
    Loop
    Dim Nodes As Object = trv.Nodes
    For Each val As String In lst
        If Nodes.Contains(val) = False Then
            nodes.Add(val,val)
        End If
        Nodes = nodes(val).nodes
    Next
Next

正常来说这两列是会有规则的，否则

a     a1

a1   b1

b1   a1

a1   c1

c1   b1

.....

 

这可咋办呢？？？？？？？？

 

 

其实我这个后台表大约有40万行数据，能不能只显示选定的某一个或某几个根节点的字符，然后展开

呵呵～  在40万行数据里生成目录树，估计使用人要有足够耐心等待了。。 应该单独建立一个项目表（包含不重复的父码和子码），来生成目录树，才对啊···

因为数据量太大。所以准备放弃这种一键生成的方案，转为下图：

 

此主题相关图片如下：screenshot2.jpg

 

左侧为LISTBOX控件，右侧为treeview控件。先在左侧生成需要展示数据的列表，然后单击或双击触发事件，右侧的treeview控件显示以左侧选中数据为根节点的数据，希望这样能够减轻数据访问的压力。

 

老大不知道这种思路是否可行？

对于代码来说，只要存在明确逻辑关系的东西，都应该能够能够实现。