以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录树节点选择问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44656)
--  作者：cqlwsam
--  发布时间：2014/1/6 11:47:00
--  [求助]目录树节点选择问题
想实现：点击目录树一级节点(0级开始)，自动定位表中相应的行。下述代码点击0级节点也有类似动作。如何改代码？谢谢！


Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes \'遍历所有节点
    If nd.level=1 Then
        Tables("基本信息_table1").Position = Tables("基本信息_table1").FindRow(e.Node.DataRow)
    End If
Next
--  作者：Bin
--  发布时间：2014/1/6 11:50:00
--  
你这直接就遍历所有节点,而不是选中节点啊

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
If nd.level=1 Then
    Tables("基本信息_table1").Position = Tables("基本信息_table1").FindRow(e.Node.DataRow)
End If
--  作者：cqlwsam
--  发布时间：2014/1/6 11:55:00
--  
懂了，谢谢bin哥。