蓝老师：设计的word打印代码如下，但是打印出的结果，排序不是默认的升序，您帮我看看Dim tm As String = ProjectPath & "Attachments\专向审核任免审批表.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\档案专项审核干部任免审批表.doc" '指定目标文件
Dim wrt As New WordReport(Tables("人事档案基础信息"),tm,fl) '定义一个WordReport
Dim pdr2 As DataRow = Nothing
Dim str2 As String = ""
For Each dr2 As DataRow In DataTables("年度考核情况").Select("档案编号 = '" & Tables("人事档案基础信息").current("档案编号") & "'", "考核等级")
If pdr2 IsNot Nothing Then
str2 &= pdr2("考核年度") &" 考核评为"& pdr2("考核等级")& chr(13) '& pdr2("类别")& "一次, 主要表现"& pdr2("内容描述") & chr(13)
End If
pdr2 = dr2
Next
If pdr2 IsNot Nothing Then
str2 &= pdr2("考核年度") &" 考核评为"&pdr2("考核等级") '& pdr2("类别")&"一次, 主要表现"& pdr("内容描述")
End If
wrt.Replace("[考核年度][考核等级]",str2) '用代码计算出总的销售数量并替换模板中的合计标记
wrt.Build() '生成报表
wrt.Show() '显示报表
wrt.Show() '显示报表
word模板设计师这样的
此主题相关图片如下：qq图片20200821110730.png
输出的结果排序是乱的
此主题相关图片如下：qq图片20200821110908.png
加好友 
发短信
Post By：2020/8/21 11:12:00 [只看该作者]
