以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  word模板設計加入TextBox的值問題  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195717)

--  作者:acheng8888
--  发布时间:2025/3/4 9:27:00
--  word模板設計加入TextBox的值問題
在word模板裡,有部分是[編號]、[名稱] 這樣的內容
但我需求加入 現在這個窗口內TextBox3的內容 (e.Form.Controls("TextBox3").Value),請問在模板內應該怎麼製作呢?

有勞指導了

--  作者:有点蓝
--  发布时间:2025/3/4 10:05:00
--  
使用代码处理,参考:http://www.foxtable.com/webhelp/topics/2890.htm
--  作者:acheng8888
--  发布时间:2025/3/4 10:52:00
--  
不好意思,我是新手 還是不是明白,可以給我個示例嗎?
目前的代碼是
WaitShow() \'显示等待窗口
Dim tm As String = ProjectPath & "Attachments\\油墨罐標籤.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\油墨罐標籤.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("特色配方"), tm, fl) \'定义一个WordReport

wrt.Build() \'逐行生成报表
\'wrt.Print()

\'wrt.Quit()
wrt.Show()
WaitClose() \'关闭等待窗口

--  作者:有点蓝
--  发布时间:2025/3/4 11:04:00
--  
Dim tm As String  = ProjectPath & "Attachments\\油墨罐標籤.doc" \'指定模板文件
Dim 
fl As String = ProjectPath & "Reports\\油墨罐標籤.doc" \'指定目标文件
Dim 
wrt As New WordReport(Tables("订单"),tm,fl\'定义一个WordReport
wrt.Replace(
"[編號]",e.Form.Controls("TextBox3").text).Replace("[名稱]",e.Form.Controls("TextBoxn").text)
wrt.Build() \'生成报表
wrt
.Show() \'显示报表
[此贴子已经被作者于2025/3/4 11:04:17编辑过]