主题：[求助]目录树选择问题·

修改代码

If e.Node.Level = 0 Then  '如果是顶层节点
    Return '则返回
End If
'Dim Vals() As String = e.Node.FullPath.Split("\")
Dim dr As DataRow = e.node.DataRow
Dim r As Row = Tables("订单流转").Current
r("产品类别") = dr("产品类别")
r("产品名称") = dr("产品名称")
r("产品图号") = dr("产品图号")
r("工序") = dr("工艺")
e.Form.Close()