以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用目录树给其他表的某一列赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124783)
--  作者：jjjeyes
--  发布时间：2018/9/13 17:14:00
--  [求助]用目录树给其他表的某一列赋值
想做一个转班的窗口，在第一个窗口选择明细表中的学生，然后打开一个模式窗口（转班），在这个模式窗口中显示了学生的基本信息，下面有个目录树是根据班级表（主表）生成的。
以上窗口都已做好，并设定了一个按钮（确定）请问：
如果选择了目录树的班级名称（第二级目录）后，怎么将所选择的班级名称的班级编号赋值给当初的班级明细表中的这个学生的班级编号列。
--  作者：有点甜
--  发布时间：2018/9/13 17:25:00
--  

Dim trv As WinForm.TreeView = e.Form.controls("treeview1")
If trv.SelectedNode IsNot Nothing Then
    Dim dr As DataRow = trv.SelectedNode.DataRow
    Dim r As Row = Tables("表A").current
    r("第一列") = dr("班级编号")
Else
    msgbox("你没有选择节点")
End If
--  作者：jjjeyes
--  发布时间：2018/9/13 22:08:00
--  
原来可以用SelectedNode这个属性解决问题啊！这样方便多了。
但是还有个小问题，怎么判断选择的是第二节点呢？？
--  作者：有点甜
--  发布时间：2018/9/13 22:24:00
--  
以下是引用jjjeyes在2018/9/13 22:08:00的发言：
原来可以用SelectedNode这个属性解决问题啊！这样方便多了。
但是还有个小问题，怎么判断选择的是第二节点呢？？

 

比如

 

If trv.SelectedNode.Level = 1 Then \'第二层节点