主题：[求助]目录树节点对应DataRow的打印代码怎么写?

 关键是你要怎么打印，直接列出内容？

Dim trv As WinForm.TreeView = forms("窗口1").controls("treeview1")

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = trv.SelectedNode.DataRow("第一列")
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.Preview() '预览

1、你的目录树，必须是通过 buildtree 生成的才能用 DataRow 属性。

2、如果是提示错误，可以直接查询，再赋值，如

Dim fdr As DataRow = DataTables("表A").Find("条件")

If fdr IsNot Nothing Then

    rt.Cells(1,5).Text = fdr("姓名")

End If

1、看4楼；

2、那是不是你有一个目录树的SelectedNode为空值？

If drv is Nothing Then

    drv = trv.Nodes(0)

End If

If drv1 is Nothing Then

    drv1 = trv1.Nodes(0)

End If

弹出msgbox看看

msgbox(drv is Nothing)

msgbox(drv1 is Nothing)

msgbox(drv.DataRow is Nothing)

msgbox(drv1.DataRow is Nothing)