CurrentTable.DefaultRowHeight = 25

    CurrentTable.AutoSizeCols()

    If CurrentTable.HeaderRows = 0 Then

        CurrentTable.SetHeaderRowHeight(25)

    ElseIf CurrentTable.HeaderRows = 1 Then

        CurrentTable.SetHeaderRowHeight(25,25)

    End If

    Dim btms() As String = {"A级标题","B级标题","C级标题"}

    Dim zdm As String

    For Each dc As DataCol In DataTables("中小学工作").DataCols

        zdm = ""

        Dim dr As DataRow = DataTables("字段标题").Find("[对应字段] = \'" & dc.name & "\'")

        If dr IsNot Nothing Then

            For Each btm As String In btms

                If dr.Isnull(btm) = False Then

                    If zdm > "" Then

                        zdm = zdm & "_"

                    End If

                    zdm = zdm & dr(btm)

                End If

            Next

        End If

        DataTables("中小学工作").DataCols(dc.name).Caption = zdm

        DataTables("中小学工作").BuildHeader()

    Next

    CurrentTable.Cols("dw").Width = 70