主题：[求助]

本人设计了两张表，一张为设备分类表，包括专业、类别序号、类别名称三列，另一张为设备编码表，包括专业、类别序号、类别名称、标准设备编号、标准设备名称等列，设计了一个窗口，左边是一个由设备分类表专业列和类别名称列生成的动态加载目录树，右边是设备编码表，现本人想实现在加载树选定第二节点的某一节点后，在右边表增加行时，分类表中的专业、类别序号和类别名称自动填入右边表中的专业、类别序号和类别名称列。
此主题相关图片如下：qq拼音截图未命名.png

dataRowAdded事件

 

If Forms("窗口1").Opened Then
    Dim trv As WinForm.TreeView = forms("窗口1").controls("TreeView1")
    If trv.SelectedNode IsNot Nothing AndAlso trv.SelectedNode.Level = 1 Then
        e.DataRow("第一列") = trv.SelectedNode.ParentNode.text
        e.DataRow("第二列") = trv.SelectedNode.text
    End If
End If

谢谢！幸苦你了！