--
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
试试这样 但是这个不能排除重复的.