1

所以我在尝试从组中创建树视图时遇到问题。我的数据库中有一个文件夹结构，它为我提供了每个节点应该具有的路径。问题是递归父级似乎只查看直接父子关系，而不是树的完整结构。我遇到的问题是，如果我仍然需要树，但没有代表该特定文件夹的数据，该怎么办。我正在拆分文件夹结构以使用数组中倒数第二个条目。

Public Shared Function Parent(ByVal Value As String, ByVal Delimiter As String) As String

 Dim ListArray() As String
 ListArray = Split(Value, Delimiter)

 Dim LastNonEmpty As Integer = -1
 For i As Integer = 0 To ListArray.Length - 1
     If ListArray(i) <> "" Then
  LastNonEmpty += 1
  ListArray(LastNonEmpty) = ListArray(i)
     End If
 Next
 ReDim Preserve ListArray(LastNonEmpty)

Dim RetValue As String = ""

IF ListArray.Length - 2 > -1 Then
RetValue = ListArray(ListArray.Length - 2)
Else
RetValue = ListArray(ListArray.Length - 1)
End If

Return RetValue
End Function

假设我在 Root\ 中有数据，但除了文件 Root\Certificates\Some Company 之外，我在 Root\Certificates 中没有数据。文件夹结构变得混乱，因为它没有注册根证书的父子节点，因为我当前没有在该结构下定义数据。

文件夹路径 Root\ Root\Blacklist\ Root\Certificates\Some Company\ Root\Reports\ Root\Something Else\Some Company\

有没有办法我可以单独输入树视图节点，或者有人可以想办法解析其中的一些并保持结构？任何帮助将不胜感激。:)

4

0 回答 0