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
[此贴子已经被作者于2013-5-24 16:51:53编辑过]
加好友 
发短信
Post By：2013/5/24 16:51:00 [只看该作者]
