请教，目录树貌能否只对加载列进行建树？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、生成目录树：

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "SELECT DISTINCT Year(收文日期) As 年, Month(收文日期) As 月 From {收文} Where 办文单位 = '" & _UserOffice & "'"

dt = cmd.ExecuteReader()

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree(dt, "年|月")

2、加载数据：

Dim Value() As String

Dim Filter As String

Dim d1 As Date

Dim d2 As Date

Value = e.Node.FullPath.Split("\")

Select Case e.Node.Level

Case 0

Dim y As Integer = value(0)

d1 = New Date(y,1,1) '取得该年的第一天

d2 = new Date(y,12,31) '取得该年的最后一天

Filter = "收文日期 >= #" & d1 & "# And 收文日期 <= #" & d2 & "#"

Case 1

Dim y As Integer = value(0)

Dim m As Integer = value(1)

d1 = New Date(y, m, 1) '取得该月的第一天

d2 = new Date(y, m, Date.DaysInMonth(y,m)) '取得该月的最后一天

Filter = "收文日期 >= #" & d1 & "# And 收文日期 <= #" & d2 & "#"

End Select

if Filter = "" then

Filter = "办文单位 = '" & _UserOffice & "'"

else

Filter = "(" & Filter & ") And 办文单位 = '" & _UserOffice & "'"

End If

Tables("收文").Filter = Filter

主题：请教，目录树貌能否只对加载列进行建树？