- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]word报表提示剪贴板 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105740)
-- 发布时间：2017/8/25 11:08:00
-- [讨论]word报表提示剪贴板
代码：
Dim bbb As Row = Tables("保安员").Current
Dim bendilujing As String
bendilujing = ProjectPath + "Images\\保安员\\" + bbb("证书照片")
Dim tm As String = ProjectPath & "Attachments\\港口设施保安员登记表.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\港口设施保安员登记表.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("保安员"),tm,fl) \'定义一个WordReport
wrt.ReplaceWithImage("[证书照片]",bendilujing,555,400)
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
打开word，关闭后提示如下：
体验不好，如何解决，谢谢了
此主题相关图片如下：qq截图20170825110555.png
-- 发布时间：2017/8/25 11:09:00
--
[此贴子已经被作者于2017/8/25 11:09:15编辑过]
-- 发布时间：2017/8/25 11:14:00
--
没看到？
-- 发布时间：2017/8/25 11:17:00
--
bug
Dim tm As String = ProjectPath & "Attachments\\kkk.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\kkk.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport
wrt.ReplaceWithImage("[第四列]","d:\\test.jpg",555,400)
wrt.Build() \'生成报表
wrt.quit
Dim app As new msword.application
Dim doc = app.Documents.Open(fl)
\'app.DisplayAlerts = false
app.visible = True
-- 发布时间：2017/8/25 11:23:00
--
在我原有代码下面加上您增加的红色代表呗？
-- 发布时间：2017/8/25 11:25:00
--
加了，直接死机了
-- 发布时间：2017/8/25 11:27:00
--
Dim bbb As Row = Tables("保安员").Current
Dim bendilujing As String
bendilujing = ProjectPath + "Images\\保安员\\" + bbb("证书照片")
Dim tm As String = ProjectPath & "Attachments\\港口设施保安员登记表.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\港口设施保安员登记表.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("保安员"),tm,fl) \'定义一个WordReport
wrt.ReplaceWithImage("[证书照片]",bendilujing,555,400)
wrt.Build() \'逐行生成报表
wrt.quit
Dim app As new msword.application
Dim doc = app.Documents.Open(fl)
\'app.DisplayAlerts = false
app.visible = True
-- 发布时间：2017/8/25 13:31:00
--
已解决，感谢