我在窗口上增加了一个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 & "'"
这段代码哪里有问题，为什么我在点击节点的时候，内如不出现反倒隐藏起来~~~
加好友 
发短信
Post By：2015/5/24 12:02:00 [只看该作者]
