以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段代码哪里有问题，为什么我在点击节点的时候，内如不出现反倒隐藏起来~~~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68756)
--  作者：wgs813
--  发布时间：2015/5/24 12:02:00
--  这段代码哪里有问题，为什么我在点击节点的时候，内如不出现反倒隐藏起来~~~

我在窗口上增加了一个TreeView插件，又建了两个按钮

 

按钮一代码

Click

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("设备台账", "使用单位|设备名称")
trv.Nodes.Insert("显示所有行",0)
trv.ResumeRedraw

 

按钮二代码

Click

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("设备台账", "设备名称|本公司设备编号|放置地点")
trv.Nodes.Insert("显示所有行",0)
trv.ResumeRedraw

 

在TreeView1

NodeMouseDoubleClick录入

 

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
End If
Tables("设备台账").Filter = Filter


Dim Filter2 As String = "1=1"
Dim dr2 As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter2 = "[设备名称] = \'" & dr2("设备名称") & "\'"
        Case 1
            Filter2 = "[设备名称] = \'" & dr2("设备名称") & "\' And [本公司设备编号] = \'" & dr2("本公司设备编号") & "\'"
        Case 2
            Filter2 = "[设备名称] = \'" & dr2("设备名称") & "\' And [本公司设备编号] = \'" & dr2("本公司设备编号") & "\' And [放置地点] = \'" & dr2("放置地点") & "\'"
    End Select
End If
Tables("设备台账").Filter= Filter2 & " and 使用单位=\'" & user.name & "\'"

 

 

这段代码哪里有问题，为什么我在点击节点的时候，内如不出现反倒隐藏起来~~~

 
--  作者：大红袍
--  发布时间：2015/5/24 12:02:00
--  

看prepareEdit事件。
--  作者：wgs813
--  发布时间：2015/5/24 12:28:00
--  

不懂，根prepareEdit事件有什么关系？
--  作者：大红袍
--  发布时间：2015/5/24 14:26:00
--  
以下是引用wgs813在2015/5/24 12:28:00的发言：

不懂，根prepareEdit事件有什么关系？

 

你事件里写有筛选代码啊，prepareEdit是一直执行的啊。