Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:word模板設計加入TextBox的值問題

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

有勞指導了
2楼
有点蓝 发表于:2025/3/4 10:05:00
使用代码处理,参考:http://www.foxtable.com/webhelp/topics/2890.htm
3楼
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() '关闭等待窗口
4楼
有点蓝 发表于: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编辑过]
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.