以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按日设置加载树和筛选树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28596)
--  作者：ruanziming
--  发布时间：2013/2/4 14:39:00
--  按日设置加载树和筛选树
哪位帮忙解决一下按日设置加载树和筛选树？现在只能按年和月。谢谢
--  作者：lin_hailun
--  发布时间：2013/2/4 14:44:00
--  
 如果要按年月日设置筛选树的话，就需要自己去弄一棵了。

 可以看看例子。

http://www.foxtable.com/help/topics/0917.htm
--  作者：ruanziming
--  发布时间：2013/2/4 15:38:00
--  [求助]
还是不大看得懂，看来学的还不够。
--  作者：lin_hailun
--  发布时间：2013/2/4 16:36:00
--  
以下是引用ruanziming在2013-2-4 15:38:00的发言：
还是不大看得懂，看来学的还不够。


有例子的。目录树.Table

http://www.foxtable.com/help/topics/2236.htm
--  作者：ruanziming
--  发布时间：2013/2/26 15:18:00
--  
林老师，我就是要统计演示里面的筛选树的哪个按日期的。但我没看明白怎么弄？
--  作者：狐狸爸爸
--  发布时间：2013/2/26 15:29:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table
--  作者：狐狸爸爸
--  发布时间：2013/2/26 15:31:00
--  

窗口AfterLoad事件：

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月,Day(日期) As 日 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日")

 

目录树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 & "#"
    Case 2
        Dim y As Integer = value(0)
        Dim m As Integer = value(1)
        Dim d As Integer = Value(2)
        Dim dt As new Date(y,m,d)
        Filter = "日期 = #" & dt & "#"
End Select
Tables("订单").Filter = Filter
--  作者：ruanziming
--  发布时间：2013/3/31 19:43:00
--  
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日")
 
目录树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 = "RQ>= #" & d1 & "# And RQ<= #" & 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 = "RQ >= #" & d1 & "# And RQ<= #" & d2 & "#"
    Case 2
        Dim y As Integer = value(0)
        Dim m As Integer = value(1)
        Dim d As Integer = Value(2)
        Dim dt As new Date(y,m,d)
        Filter = "RQ= #" & dt & "#"
End Select
Tables("PRINDXDD").Filter = Filter

我的表名是PRINDDX,那个日期字段是RQ.运行后提示FORM不是tableeventargs的成员。