专家坐堂-请教手动编写目录树代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=18595)

--  作者：wjl-se
--  发布时间：2012/4/18 13:35:00
--  请教手动编写目录树代码

引用帮助文件中的一段代码：

目录树的NodeMouseDoubleClick事件代码改为：

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)
        d1 = New Date(y, m, 1) \'取得该月的第一天
        d2 = new Date(y, m, Date.DaysInMonth(y,m)) \'取得该月的最后一天
        Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = \'" & Value(2) & "\'"
End Select
Tables("订单").Filter = Filter

我想把目录树改成 "产品｜年｜月"的形式上述代码应该怎么改？特别是绿色字体这一行代码,先谢谢老师

--  作者：yangming
--  发布时间：2012/4/18 14:02:00
--

第一步:窗口的AfterLoad事件代码改为：

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

第二步:目录树的NodeMouseDoubleClick事件代码改为：
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
Filter ="产品 = \'" & Value(0) & "\'"
Case 1
Dim y As Integer = value(1)
d1 = New Date(y,1,1) \'取得该年的第一天
d2 = new Date(y,12,31) \'取得该年的最后一天
Filter = "产品 = \'" & Value(0) & "\' And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
Case 2
Dim y As Integer = value(1)
Dim m As Integer = value(2)
d1 = New Date(y, m, 1) \'取得该月的第一天
d2 = new Date(y, m, Date.DaysInMonth(y,m)) \'取得该月的最后一天
Filter = "产品 = \'" & Value(0) & "\' And 日期 >= #" & d1 & "# And 日期 <= #" & d2 & "#"
End Select
Tables("订单").Filter = Filter

--  作者：wjl-se
--  发布时间：2012/4/18 14:05:00
--
谢谢杨版！！