Dim cs() As String = {"第一列", "第三列", "第四列"} Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In tr.AllNodes If nd.Nodes.count = 0 Then Dim ary() As String = nd.FullPath.Split("\") Dim ndr As DataRow = DataTables("表a").addnew For i As Integer = 0 To ary.length - 1 ndr(cs(i)) = ary(i) Next End If Next
加好友 
发短信
Post By：2016/3/2 16:08:00 [显示全部帖子]
