按日设置加载树和筛选树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

哪位帮忙解决一下按日设置加载树和筛选树？现在只能按年和月。谢谢

如果要按年月日设置筛选树的话，就需要自己去弄一棵了。

可以看看例子。

http://www.foxtable.com/help/topics/0917.htm

还是不大看得懂，看来学的还不够。

以下是引用ruanziming在2013-2-4 15:38:00的发言：
还是不大看得懂，看来学的还不够。

有例子的。目录树.Table

http://www.foxtable.com/help/topics/2236.htm

林老师，我就是要统计演示里面的筛选树的哪个按日期的。但我没看明白怎么弄？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

窗口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

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的成员。

muhua	小大 9楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/4/1 8:12:00 [只看该作者] 用户已被锁定

主题：按日设置加载树和筛选树