以文本方式查看主题 - 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编辑过]
|