以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教我这个word模板为何不能生成呢?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57409)

--  作者:zhuzhi
--  发布时间:2014/9/24 12:02:00
--  [求助]请教我这个word模板为何不能生成呢?
我的word报表模板如图设置的:

图片点击可在新窗口打开查看此主题相关图片如下:word模板.jpg
图片点击可在新窗口打开查看

但不知为什么,并没有什么效果,生成的报表也是和模板一样
我是用帮助中的代码来生成这个模板的
Dim tm As String  = ProjectPath & "Attachments\\退学申请表.doc" \'指定模板文件

Dim fl As String = ProjectPath & "Reports\\退学.doc" \'指定目标文件
Dim
mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim
wrt As New WordReport(Tables("基础表"),tm,fl) \'定义一个WordReport
For Each
r As Row In Tables("基础表").Rows \'逐行生成报表
    Dim
Bar As New BarCodeBuilder
   
Bar.Symbology = Barpro.Symbology.QRCode
    Bar.QRCodeModuleSize =
2 \'二维码的放大倍数
   
Bar.Code = "编号:" & r("退学申请序号") & vbcrlf & "所属二级学院:" & r("二级学院") & vbcrlf & "年份:" & r("提出申请年份")
   
bar.SaveImage(mg,300)
   
wrt.BuildOne(r)
Next

wrt
.Show() \'显示报表

帮助代码中的字段我都改过来了
请问我是差什么呢?十分感谢!

--  作者:有点甜
--  发布时间:2014/9/24 12:11:00
--  
 例子发上来
--  作者:zhuzhi
--  发布时间:2014/9/24 16:33:00
--  
嗯,好的,麻烦老师给看一下,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:word报表例子.rar



--  作者:有点甜
--  发布时间:2014/9/24 16:49:00
--  
 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:退学申请表.rar


--  作者:zhuzhi
--  发布时间:2014/9/24 17:13:00
--  
奇怪,问题究竟出在哪里呢?求甜老师指点!
--  作者:有点甜
--  发布时间:2014/9/24 17:18:00
--  
以下是引用zhuzhi在2014-9-24 17:13:00的发言:
奇怪,问题究竟出在哪里呢?求甜老师指点!

 

你写[]符号的时候,不能用全角的,必须是英文输入法下的符号[]


--  作者:有点甜
--  发布时间:2014/9/24 17:18:00
--  

http://www.foxtable.com/help/topics/2885.htm