……Dim pdr As DataRow = Nothing
Dim str As String = ""
Dim drs As List(of DataRow) = DataTables("简历").Select("档案编号 = '" & Tables("人事档案基础信息").current("档案编号") & "'", "起始时间")
For i As Integer = 0 To drs.Count - 2
pdr = drs(i)
str &= format(pdr("起始时间"), "yyyy.MM") & "-" & format(drs(i+1)("起始时间"), "yyyy.MM") &" 在"& pdr("所在单位全称")& pdr("所在部门全称")& " 任" & pdr("任职岗位") & chr(13)
Next
pdr = drs(drs.Count-1)
str &= format(pdr("起始时间"), "yyyy.MM") & " 至今 在" & pdr("所在单位全称")& pdr("所在部门全称")& " 任" & pdr("任职岗位")
wrt.Replace("[所在单位全称][所在部门全称][任职岗位]",str) '用代码计算出总的销售数量并替换模板中的合计标记
……