求助一个目录树写入的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("表A").DataRows.Clear
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nr As Row
For Each nd As WinForm.TreeNode In tv.AllNodes
    If nd.Level = 1 AndAlso nd.Checked Then
        If DataTables("表A").Find("第一列 = '" & nd.ParentNode.Name & "'") Is Nothing Then
            nr = Tables("表A").AddNew
            nr("第一列") = nd.ParentNode.Name
            For Each nd1 As WinForm.TreeNode In nd.ParentNode.Nodes
                If nd1.Checked Then
                    nr("第二列") + = nd1.Name & ","
                End If
            Next
            nr("第二列") = nr("第二列").Trim(",")
        End If
    End If
Next

主题：求助一个目录树写入的问题