主题：[求助]excel 模板

Select Case e.Book.TempLate

    Case "员工履历表"

        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("学历信息")

        Dim i As Integer = 1

        Dim max As Integer = 4

        For Each dr As DataRow In drs

            If i = max Then

                e.Book.Marks("学历2") = dr("学历")

                e.Book.Marks("毕业院校2") = dr("毕业院校")

                e.Book.Marks("专业2") = dr("专业")

                e.Book.Marks("学习形式2") = dr("学习形式")

                exit for

            End If

            If dr("学习形式")="全日制" Then

                e.Book.Marks("学历1") = dr("学历")

                e.Book.Marks("毕业院校1") = dr("毕业院校")

                e.Book.Marks("专业1") = dr("专业")

                e.Book.Marks("学习形式1") = dr("学习形式")

            End If

            i = i + 1

        Next

End Select