主题：简历怎么做？

Dim tm As String  = ProjectPath & "Attachments\转向审核任免审批表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\档案专项审核干部任免审批表.doc" '指定目标文件
Dim wrt As New WordReport(Tables("人事档案基础信息"),tm,fl) '定义一个WordReport

Dim pdr As DataRow = Nothing
Dim str As String = ""
For Each dr As DataRow In DataTables("简历").Select("档案编号 = '" & Tables("人事档案基础信息").current("档案编号") & "'", "起始时间")
    If pdr IsNot Nothing Then
        str &= format(pdr("起始时间"), "yyyy.MM") & "-" & format(pdr("起始时间").addmonths(-1), "yyyy.MM") &"  在"& pdr("所在单位全称")& pdr("所在部门全称")& " 任" & pdr("任职岗位") & chr(13)
    End If
    pdr = dr
Next
If pdr IsNot Nothing Then
    str &= format(pdr("起始时间"), "yyyy.MM")  & " 至今     在" & pdr("所在单位全称")& pdr("所在部门全称")& " 任" & pdr("任职岗位")
End If
wrt.Replace("[所在单位全称][所在部门全称][任职岗位]",str) '用代码计算出总的销售数量并替换模板中的合计标记
wrt.Build() '生成报表
wrt.Show() '显示报表