以文本方式查看主题

-  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=55583)

--  作者:yifan3429
--  发布时间:2014/8/19 16:16:00
--  word报表路径
Dim dr As DataRow = e.DataRow
Dim tm As String  = ProjectPath & "Attachments\\xx内部联络函模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "工作联络&交接单文件夹\\" & "联络函" & "\\" & "关于" & dr("所属项目") & dr("文件名称") & User.name & format(Date.today,"MM月dd日") & "联络函.xls"    \'指定目标文件
Dim wrt As New WordReport(Tables("产品数据库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表


不知道该怎么处理 求助



图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140819161420.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-8-19 16:16:10编辑过]

--  作者:有点甜
--  发布时间:2014/8/19 16:18:00
--  
Dim dr As Row = Tables("产品数据库").Current
Dim tm As String  = ProjectPath & "Attachments\\xx内部联络函模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "工作联络&交接单文件夹\\" & "联络函" & "\\" & "关于" & dr("所属项目") & dr("文件名称") & User.name & format(Date.today,"MM月dd日") & "联络函.xls"    \'指定目标文件
Dim wrt As New WordReport(Tables("产品数据库"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表