老师，我在treeview中加入如下代码：
Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性
Dim d1 As Date
Dim d2 As Date
Dim Year As Integer = e.Node.DataRow("年")
Dim Month As Integer = e.Node.DataRow("月")
Dim Product As String = e.Node.DataRow("产品")
Select Case e.Node.Level
Case 0
d1 = New Date(Year,1,1) '取得该年的第一天
d2 = new Date(Year,12,31) '取得该年的最后一天
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
Case 1
d1 = New Date(Year, Month, 1) '取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
Case 2
d1 = New Date(Year, Month, 1) '取得该月的第一天
d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Product & "'"
End Select
End If
Tables("产品").filter = "是否开piao = false"
只有在“所有行中”点击鼠标正常显示未开piao信息，在下面的展开项中没有反应，请问代码在哪里有问题？
另外的问题是：
1、我在TreeView中查找到未开piao项后，在字段“是否开piao”中勾选后，测试运行后会和以前报同一个错。我的想法是查到未开piao信息后可以直接在查询结果中，在“是否开piao”中勾选开piao
2、整个项目我只能运行一次，在项目中第二次打开treeview,测试运行后会和以前报同一个错
请老师指点这三个问题该如何处理，谢谢
[此贴子已经被作者于2018/7/25 14:44:04编辑过]
加好友 
发短信
Post By：2018/7/23 11:10:00 [显示全部帖子]
此主题相关图片如下：目录树.jpg
