Foxtable(狐表)用户栏目专家坐堂 → 目录树取值


  共有2052人关注过本帖树形打印复制链接

主题:目录树取值

帅哥哟,离线,有人找我吗?
outcat
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
目录树取值  发帖心情 Post By:2018/12/19 0:42:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下: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 '恢复绘制目录


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/19 9:36:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
outcat
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:470 积分:3641 威望:0 精华:0 注册:2017/11/5 14:47:00
  发帖心情 Post By:2018/12/20 0:49:00 [只看该作者]

老师,帮忙写一下,我看了半天搞不明白,我是要实现点了目录树的二级节点,然后点商品新增,打开商品新增窗体后,把商品类别的 商品编号,商品类别赋值过去,而不是想双击目录树节点执行相关操作,实在是搞不出来

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/20 9:02:00 [只看该作者]

 

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

 


 回到顶部