主题：目录树取值

此主题相关图片如下：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("第二列"))