以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教手动编写目录树代码  (http://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
--  
谢谢杨版！！