以文本方式查看主题

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

--  作者:xxcwdlwgo
--  发布时间:2018/3/31 11:50:00
--  word文档有表格且已经做好,如何在表格中写入数据
word文档有表格且已经做好,如何在表格中写入数据。
我在一个word文档,其中在三个已做好排好版的表格,如何用编程的方法,写入数据?

--  作者:有点蓝
--  发布时间:2018/3/31 12:21:00
--  
参考:http://www.foxtable.com/help/scr/1299.htm

看完word报表这章内容

--  作者:xxcwdlwgo
--  发布时间:2018/3/31 12:38:00
--  
此文看了多遍。我的数据是以备注型存储的,以1,2,3,……n形式,存储备注型字段中,生成打印的数据时,通过split(",")拆分成所需数据。
因word文档中版式已排好,现在只需拆分好的数据写入到word中指定的表格位置。

--  作者:有点蓝
--  发布时间:2018/3/31 15:03:00
--  
http://www.foxtable.com/help/scr/2890.htm
Replace方法,将指定的内容替换为新的内容,语法:

Repalce(findstr,replacestr)

findstr: 字符型,指定要查找的内容
replacestr: 字符型,指定用于替换的内容。

Replace是全局有效。

[此贴子已经被作者于2018/3/31 15:03:26编辑过]

--  作者:xxcwdlwgo
--  发布时间:2018/4/1 21:07:00
--  
Dim tm As String  = ProjectPath & "Attachments\\QD-C11.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\QD-C11.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("进度"),tm,fl) \'定义一个WordReport
wrt.Replace("[A1]","铁路站段") \'用代码计算出总的销售数量并替换模板中的合计标记
wrt.Build() \'生成报表
wrt.Show() \'显示报

本段代码运行后,ft死机。
我以前用的是office2003,为了生成pdf,安装了office2007,也运行了ft下的office.reg,但还是无法显示。
请老大指教。

--  作者:xxcwdlwgo
--  发布时间:2018/4/1 21:33:00
--  
Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
在按钮中写入上述代码 ,报这个信息?

--  作者:有点甜
--  发布时间:2018/4/1 21:57:00
--  

直接预览一个简单的word报表能否正常?http://www.foxtable.com/webhelp/scr/2878.htm

 

如果word报表无法正常预览,说明你ms office没有正确安装。卸载重装完整版本的。