以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]目录树光标跳到下一行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150869)
--  作者：2425004926
--  发布时间：2020/6/9 17:12:00
--  [原创]目录树光标跳到下一行
 
图片点击可在新窗口打开查看此主题相关图片如下：b6b73558d5fd34148d9d69f823fb1f1.jpg
图片点击可在新窗口打开查看

 \'加载目录树
NodeMouseClick事件代码
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Form.Controls("RadioButton1").Checked = True Then
    trv.BuildTree("公司", "行业分类","","行业分类")
    trv.Nodes.Insert("显示所有行",0)
    Dim Filter As String
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
    If e.Node.Text <> "显示所有行" Then
        Select Case e.Node.Level
            Case 0
                Filter = "[行业分类] = \'" & dr("行业分类") & "\'"
        End Select
        Tables("公司_Table1").Filter = Filter
    End If
ElseIf e.Form.Controls("RadioButton2").Checked = True Then
    trv.BuildTree("公司", "省|市","","省")
    trv.Nodes.Insert("显示所有行",0)
    Dim Filter As String
    Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
    If e.Node.Text <> "显示所有行" Then
        Select Case e.Node.Level
            Case 0
                Filter = "[省] = \'" & dr("省") & "\'"
            Case 1
                Filter = "[省] = \'" & dr("省") & "\' And [市] = \'" & dr("市") & "\'"
        End Select
        Tables("公司_Table1").Filter = Filter
    End If
End If

筛选是没有问题，“行业分类”为目录时会光标跳到下一行，“省|市”为目录时光标会跳到别处，（如果双击确没有问题），是什么原因？
--  作者：2425004926
--  发布时间：2020/6/9 17:16:00
--  
 “行业分类”为目录时光标跳到下一行，双击没有问题；“省|市”为目录时光标会跳到别处，双击也会乱跳
--  作者：有点蓝
--  发布时间：2020/6/9 17:28:00
--  
没看懂，什么光标乱跳。意思是目录树自动选择了其它节点？除非有代码影响，否则不可能自己乱跳。上传实例看看
--  作者：2425004926
--  发布时间：2020/6/9 17:38:00
--  
好了，我把以下代码删了，因为在单选按钮里已经出现了以下代码，这里就不能二次出现

trv.BuildTree("公司", "行业分类","","行业分类")
trv.Nodes.Insert("显示所有行",0)  

trv.BuildTree("公司", "省|市","","省")
trv.Nodes.Insert("显示所有行",0)