主题：[求助]excel 模板

模板为

此主题相关图片如下：截图.bmp

代码为

Select Case e.Book.TempLate
    Case "员工履历表"
        Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("学历信息")
        Dim i As Integer = 1
        Dim max As Integer = 3
        For Each dr As DataRow In drs
            If i >= max Then
                Exit For
            End If
            e.Book.Marks("学历" & i) = dr("学历")
            e.Book.Marks("毕业院校" & i) = dr("毕业院校")
            e.Book.Marks("专业" & i) = dr("专业")     
            i = i + 1
        Next
End Select

 

可能出现三个学历的情况

 
此主题相关图片如下：截图1.bmp

 

 

现在只要全日制和最高学历，有什么办法解决？

加个判断即可. 

如果默认最后一条记录为最高学历，该怎么修改代码？

if i=2 then '说明是最后一条记录

不然加个辅助列，学历等级，专科那列是1，本科是2，这样就容易了。其次你用数据字典也可以实现，但导出就麻烦。

可是每个人不一样，有些人可能只有一个全日制学历，可能有2个学历，有些人有4个学历。

哦  if i=(max-1) then 

好，谢谢BIN和XTY，我试试看。

还是不行，做了个例子，简化了一下，王五和李六的记录就出现错误

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip

帮忙看看怎么解决，谢谢！

 

PS：我的2012的版本，如果是2013版本做的，麻烦拷贝代码出来。^_^