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
如果有问题,上传实例测试,具体说明要做的效果。