主题：多值字段做目录树

Dim Mytree As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")

For Each dr As DataRow In DataTables("表A").DataRows

    If dr.IsNull("第一列")=False Then

        Dim Mystr() As String = dr("第一列").Split(",")

        For i As Integer = 0 To Mystr.Length -1

            Mytree.Nodes.Add(Mystr(i))

        Next

    End If

Next

  试试这样 但是这个不能排除重复的.