Foxtable(狐表)用户栏目专家坐堂 → 做一个批量导出word功能,没能输出正确的个人信息,只输出模板,求助。


  共有1411人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
白面书生
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:38 积分:362 威望:0 精华:0 注册:2015/6/17 21:23:00
做一个批量导出word功能,没能输出正确的个人信息,只输出模板,求助。  发帖心情 Post By:2016/12/21 16:45:00 [只看该作者]

代码如下:

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)
    Next
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)

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/21 17:37:00 [只看该作者]

 先试试加上 wrt.Show

 

 代码应该没问题的,做个实例发上看看。


 回到顶部