主题：缩小字体显示

建议增加行高：http://www.foxtable.com/webhelp/topics/1669.htm

Dim Filter As String = ""

If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性

    Select Case e.Node.Level

        Case 0

            Filter = "[生产工段] = '" & e.Node.DataRow("生产工段") & "'"

        Case 1

            Filter = "[生产工段] = '" & e.Node.DataRow("生产工段") & "'And 考勤班组 = '" & e.Node.DataRow("考勤班组") & "'"

        Case 2

            Filter = "[生产工段] = '" & e.Node.DataRow("生产工段") & "'And 考勤班组 = '" & e.Node.DataRow("考勤班组") & "'and 考勤员 = '" & e.Node.DataRow("考勤员") & "'"

        Case 3

            Filter = "[生产工段] = '" & e.Node.DataRow("生产工段") & "'And 考勤班组 = '" & e.Node.DataRow("考勤班组") & "'and 考勤员 = '" & e.Node.DataRow("考勤员") & "'and 操作人 = '" & e.Node.DataRow("操作人") & "'"

    End Select

End If

DataTables("当月工时表").LoadFilter = Filter

DataTables("当月工时表").Load()