1、我测试没有问题,请做个有问题的实例测试2、
Select Case e.Node.Level
Case 0
SQLFilter ="[年度] = '" & dr("年度") & "'"
Case 1
SQLFilter ="[年度] = '" & dr("年度") & "' And [生产车间] = '" & dr("生产车间") & "'"
Case 2
SQLFilter ="[年度] = '" & dr("年度") & "' And [生产车间] = '" & dr("生产车间") & "' And [班组] = '" & dr("班组") & "'"
Case 3
SQLFilter ="[年度] = '" & dr("年度") & "' And [生产车间] = '" & dr("生产车间") & "' And [班组] = '" & dr("班组") & "' and [组段] = '" & dr("组段") & "'"
Case 4
SQLFilter ="[年度] = '" & dr("年度") & "' And [生产车间] = '" & dr("生产车间") & "' And [班组] = '" & dr("班组") & "' and [组段] = '" & dr("组段") & "' and [年月] = '" & dr("年月") & "'"
Case 5
SQLFilter ="[年度] = '" & dr("年度") & "' And [生产车间] = '" & dr("生产车间") & "' And [班组] = '" & dr("班组") & "' and [组段] = '" & dr("组段") & "' and [年月] = '" & dr("年月") & "' and [日] = '" & dr("日") & "'"
End Select