- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教，目录树貌能否只对加载列进行建树？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34700)
-- 发布时间：2013/6/13 13:14:00
-- 请教，目录树貌能否只对加载列进行建树？
按老大教导，重新把问题描述一下。
一、目标：目录树只对加载出来的列进行建树和筛选
二、先说我怎么干的
，
，1、在窗口加载时，按自定义的 _UserOffice 进行加载；同时生成目录树treeview1（估计就是这里错了）
\'加载本部门数据
With DataTables("收文")
.LoadFilter = "" \'设置加载条件
.LoadFilter = "办文单位 = \'" & _UserOffice & "\'"
.LoadPage = 0 \'加载第一页
.LoadTop = 20 \'每页20行
.Load()
e.Form.Controls("TextBox4").Value = 1 & "/" & .TotalPages
End With
\'生成目录树
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT Year(收文日期) As 年, Month(收文日期) As 月 From {收文}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月")
2、在目录树nodemouseclick处，点击则筛选
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
Tables("收文").Filter = Filter
第一图，加载数据并生成目录树。。。
此主题相关图片如下：1.jpg
第二图，注意，实际上2012年6月和2013年的3月数据，实际 _UserOffice 没有浏览权限，不应该出现这两个节点的。
此主题相关图片如下：2.jpg
此主题相关图片如下：2.jpg何故？个人认为应该是目录树生成公示错了
[此贴子已经被作者于2013-6-13 13:46:15编辑过]
-- 发布时间：2013/6/13 13:15:00
--
这个例子还不好做哦，等一下拍个录像吧。。
-- 发布时间：2013/6/13 13:16:00
--
呵呵，有具体的问题，才有具体答案，你这样提问，让人从何说起啊？
最好用个简单例子说明你的问题，至少也的贴出你的代码，然后说明代码的目的和问题。
-- 发布时间：2013/6/13 13:22:00
--
老总说的对，我去搞个细一点的版本过来说明
-- 发布时间：2013/6/13 14:23:00
--
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
-- 发布时间：2013/6/13 14:25:00
--
没能看明白
-- 发布时间：2013/6/13 14:40:00
--
呵呵，明白，谢谢老乡