做一个批量导出word功能，没能输出正确的个人信息，只输出模板，求助。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码如下：

If FileSys.FileExists(ProjectPath & "Images\pp_dy.jpg") Then '如果记录中有相片文件

Else

FileSys.CopyDirectory (ProjectPath & "TestFiles", ProjectPath & "Images", True) '如果图片不存在,用一张全白图片复制过来.

End If

Dim tm As String = ProjectPath & "Attachments\干部任免审批表.doc" '指定模板文件

Dim fl As String = ProjectPath & "Images\" & "pp_dy.jpg"

Dim drs As List(of DataRow) = DataTables("基本情况").Select("姓名 <> ''") '筛选出符合条件的行

If drs.Count > 0 Then '如果存在符合条件的行

For Each dr As DataRow In drs '逐行生成报表

Dim ffl As String = "d:\数据导出目录(Word)\" & dr("姓名") & ".doc" '指定目标文件

Dim wrt As New WordReport(Tables("基本情况"),tm,ffl) '定义一个WordReport

wrt.BuildOne(dr)

End If

'显示结束后,删除从二进制提取并保存在IMAGES目录下的临时图片文件'

If FileSys.FileExists(ProjectPath & "Images\pp_dy.jpg") Then '如果指定的文件存在

FileSys.DeleteFile(ProjectPath & "Images\pp_dy.jpg",2,2) '则彻底删除之

End If

Forms("导出数据").Close

MessageBox.Show("保存完毕, 默认保存在 D:盘数据导出目录(Word) !", "提示",MessageBoxButtons.ok,MessageBoxIcon.Information)

主题：做一个批量导出word功能，没能输出正确的个人信息，只输出模板，求助。