- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于帮助中用SQL语句设计加载树的提问。（狐爸已经解决了） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17545)
-- 发布时间：2012/3/16 11:35:00
-- 关于帮助中用SQL语句设计加载树的提问。（狐爸已经解决了）
初学者提问：
帮助的代码：
1、窗口的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, "年|月|产品")
2、目录树的NodeMouseDoubleClick事件代码改为：
Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Filter ="Year(日期) = " & Value(0)
Case 1
Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1)
Case 2
Filter ="Year(日期) = " & Value(0) & " And Month(日期) = " & Value(1) & " And 产品 = \'" & Value(2) & "\'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
生成的目录树是：
此主题相关图片如下：ｓｑｌ.png
-- 发布时间：2012/3/16 11:36:00
-- 能否在后面加个年 和 月 方便识别。
能否在后面加个年 和 月 方便识别。
-- 发布时间：2012/3/16 11:48:00
--
这里有解决方法：
http://www.foxtable.com/help/topics/2302.htm
代码很简单：
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Level = 0 TYhen
nd.Text = md.Text & "年"
Elseif nd.Level = 1 then
nd.Text = md.Text & "年"
End If
Next
多看帮助。
-- 发布时间：2012/3/16 16:14:00
-- 代码出错了。
使用代码：
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Level = 0 Then
nd.Text = nd.Text & "年"
ElseIf nd.Level = 1 Then
nd.Text = nd.Text & "月"
End If
Next
后，无论双击，年份或月份，都弹出出错提示。
此主题相关图片如下：年.png
-- 发布时间：2012/3/16 16:30:00
--
你不修改加载代码肯定出错的。
因为目录树节点的值现在是“1999年”，不是“1999”，而代码要的是1999。
Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Filter ="Year(日期) = " & Value(0).Replace("年","")
Case 1
Filter ="Year(日期) = " & Value(0).Replace("年","") & " And Month(日期) = " & Value(1).Replace("月","")
Case 2
Filter ="Year(日期) = " & Value(0).Replace("年","") & " And Month(日期) = " & Value(1).Replace("月","") & " And 产品 = \'" & Value(2) & "\'"
End Select
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()