主题：目录树代码不生效

1、

 

Select Case e.Sender.SelectedNode.name 

 

改成

 

msgbox(e.node.text)

Select Case e.node.text

 

2、函数改成

 

cmd.CommandText = "SELECT DISTINCT Year(sg_rq) As 年, Month(sg_rq) As 月, Day(sg_rq) As 日  From {car_accident} " & args(0)

 

调用改成

 

Functions.Execute("生成筛选树"，"where sg_rq >=#" & new date(date.today.year, date.today.month, 1) & "# and sgrq < #" & new date(date.today.year, date.today.month, 1).addmonths(1) & "#")

 

3、不会做上传具体实例测试。