通过这段码,
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() '显示报表
把下面有关联的的表,制作成word表
此主题相关图片如下:图片3.png
![dvubb 按此在新窗口浏览图片](UploadFile/2019-8/20198290225988965.png)
目的是想制成下图的上半部分,结果却是下半部分的样子
甜哥,帮我看看什么问题
![dvubb](skins/default/filetype/png.gif)
此主题相关图片如下:图片4.png