主题：简历中，如何让时间不间断

 在窗体打印按钮里的代码如下

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 &= pdr("任职时间") & "到" & dr("任职时间") &"在"& dr("单位名称")& dr("部门")& "任" & pdr("任职岗位") & chr(13)
    End If
    pdr = dr
Next
If pdr IsNot Nothing Then
    str &= pdr("任职时间") & "至今在" & pdr("单位名称")& pdr("部门")& "任" & pdr("任职岗位")
End If
wrt.Replace("[单位名称][部门][任职岗位]",str) '用代码计算出总的销售数量并替换模板中的合计标记
wrt.Build() '生成报表
wrt.Show() '显示报表

此主题相关图片如下：qq图片20190403155129.png

实例如下

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

点击浏览该文件:干部简历.rar