专家坐堂-关于目录树节点“显示所有行”Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

‘在TreeView3生成目录树：

Dim cmd3 As New SQLCommand

Dim dt3 As DataTable

cmd3.ConnectionName = conn

cmd3.CommandText = "Select DISTINCT Year(分部发货日期) As 年, Month(分部发货日期) As 月, Day(分部发货日期) as 日 fr om {退货处理} "

dt3 = cmd3.ExecuteReader()

Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")

trv3.BuildTree(dt3,"年|月|日")

trv3.Nodes.Insert("显示所有行",0)

选择目录树节点执行代码：

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的DataRow

Dim Year As Integer = dr("年")

Dim Month As Integer = dr("月")

Dim day As Integer = dr("日")

If e.Node.Name = "显示所有行" Then

Filter = ""

Else

Select Case e.Node.Level

Case 0

Filter ="Year(日期) = " & Year

Case 1

Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month

Case 2

Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And day(日期) = " & day

End Select

End If

DataTables("分部退货查看_Table2").LoadFilter = Filter

DataTables("分部退货查看_Table2").Load

问题：点选选择目录树节点执行

问题：点选“显示所有行“报错，其它节点正常，不知何故？

此主题相关图片如下：qq截图20160429100657退货报错.jpg