主题：[求助]

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