内部函数部分代码：Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT Year(sg_rq) As 年, Month(sg_rq) As 月, Day(sg_rq) As 日 Fro m {car_accident} "
dt = cmd.ExecuteReader()
Dim tv As WinForm.TreeView = Forms("事故统计").Controls("TreeView1")
tv.BuildTree(dt, "年|月|日")
tv.Nodes.Insert("显示全部事故",0)
tv.Nodes.Insert("按金额统计",1)
tv.Nodes.Insert("按责任统计",2)
tv.Nodes.Insert("按形态统计",3)
For Each nd As WinForm.TreeNode In tv.Nodes '遍历筛选树的节点
If nd.Level = 0 Then '若是根节点
nd.Expand '展开该节点
End If
Next
事故统计窗口
afterload 载入 Functions.Execute("生成筛选树")
TreeView1控件afterselectnode载入
Select Case e.Sender.SelectedNode.name '对所选树的节点的内容来做判断
Case "显示全部订单"
Functions.Execute("生成筛选树","")
Case "按形态统计"
Functions.Execute("生成筛选树","where sg_xt = '双方'")
Case "按责任统计"
.........
Case "按金额统计"
.........
End Select
问题1， 随便点目录树什么节点，右侧表内信息都无变化
问题2， 如果想窗口打开后，默认显示当月的记录，语句该怎么写。 我在afterload 载入 Functions.Execute("生成筛选树"，“where Month(sg_rq)= data.today.Month ”),语法不对。
现在执行后的左侧全部展开后如下：
此主题相关图片如下：目录树.png
加好友 
发短信
Post By：2019/3/6 14:09:00 [只看该作者]
