此主题相关图片如下：12.png

我的左边是一个商品类别目录树，我要实现点左边商品目录树的 蔬菜类，然后点商品新增，在这个新增商品明细界面，自动的从目录树，把商品类别、类别编号、品牌编号、品牌名称取值过来，请老师帮忙修改一下
商品新增 代码如下：
Forms("商品明细新增").open
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Trv.BuildTree("商品类别表","品牌名称|类别名称","", "品牌编号,类别编号")

trv.StopRedraw \'停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
    If nd.Level = 1 Then \'如果是二级节点
        nd.Text = nd.DataRow("类别编号") & "|" & nd.text
        Dim splb As String = nd.Text
        Dim Values() As String
        Values = splb.split("|")
        For Index As Integer = 0 To Values.Length - 1
            Dim tr As Row = Tables("商品名称表").Current
            tr("类别编号") = values(0)
            tr("商品类别") = values(1)
            \'tr("品牌编号") = dr("品牌编号")
            \'tr("品牌名称") = dr("品牌名称")
        Next
    End If
Next
trv.ResumeRedraw \'恢复绘制目录

参考

http://www.foxtable.com/webhelp/scr/2690.htm

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim dr = nd.DataRow
msgbox(dr("第一列"))
msgbox(dr("第二列"))