Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each r As Row In Tables("表A").Rows If r.IsNull("第一列") = False AndAlso tv.Nodes.Contains(r("第一列")) = False Then Dim nd As WinForm.TreeNode = tv.Nodes.Add(r("第一列")) For Each s As String In r("第二列").Split(",") If nd.Nodes.Contains(s) = False Then nd.Nodes.Add(s) End If Next End If Next
加好友 
发短信
Post By：2014/10/10 9:46:00 [显示全部帖子]
