主题：如何利用目录树录入数据

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked AndAlso nd.Level = 3 Then
        Dim Vals() As String = nd.FullPath.Split("\")
        Dim Filter As String = "[工程名称] = '" & Vals(0) & "' And [标段名称] = '" & Vals(1) & "'"
        Dim dr As DataRow = DataTables("项目结构").Find(Filter)
        Dim r As Row = Tables("月报项目结构").addnew
        r("工程名称") = dr("工程名称")
        r("标段名称") = dr("标段名称")
        r("项目编号") = dr("项目编号")
        r("专业编号") = dr("专业编号")
        r("单位工程") = dr("单位工程")
        r("专业工程") = dr("专业工程")
    End If
Next

如果有问题，上传实例测试，具体说明要做的效果。

1、看AfterLoad事件的代码。