以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多值字段做目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42301)

--  作者:xyd
--  发布时间:2013/11/7 23:29:00
--  多值字段做目录树
选取多值字段列生成目录树,能拆成单个值吗?
--  作者:xyd
--  发布时间:2013/11/7 23:37:00
--  

这个不是我想要的,能拆分成单值吗?


图片点击可在新窗口打开查看此主题相关图片如下:07233112.jpg
图片点击可在新窗口打开查看

--  作者:blackzhu
--  发布时间:2013/11/8 8:03:00
--  
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

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