主题：缩小字体显示

'------------------------------------工时表加载树-------------------------------------------------------------------------------

Dim Filter As String = ""

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

    Select Case e.Node.Level

        Case 0

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

            '-------------------------自动行高-------------------------

            Tables("当月工时表").Cols("商品全名").Width= 250

            Tables("当月工时表").AutoSizeRows()

        Case 1

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

            

            '-------------------------自动行高-------------------------

            Tables("当月工时表").Cols("商品全名").Width= 250

            Tables("当月工时表").AutoSizeRows()

        Case 2

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

            '-------------------------自动行高-------------------------

            Tables("当月工时表").Cols("商品全名").Width= 250

            Tables("当月工时表").AutoSizeRows()

        Case 3

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

            '-------------------------自动行高-------------------------

            Tables("当月工时表").Cols("商品全名").Width= 250

            Tables("当月工时表").AutoSizeRows()

            

    End Select

End If

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

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