- 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=174367)
-- 发布时间：2022/1/12 12:58:00
-- word模板中怎么实现关联表中的数据行组合序号
word模板中怎么实现关联表中的数据行组合序号
怎么实现这个序号根据打印的关联表数据行多少赋值呢？
<Index> 这个部分该怎么写呢？
-- 发布时间：2022/1/12 13:44:00
--
使用代码填充数据吧：http://www.foxtable.com/webhelp/topics/2890.htm
-- 发布时间：2022/1/12 15:26:00
-- 回复：（有点蓝）使用代码填充数据吧：http://www.fox...
试了一下 还是不得要领 麻烦老师指导下
是否是如下方法呢？
Dim tm As String = ProjectPath & "Attachments\\订单.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\订单.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) \'定义一个WordReport
For Each r As Row In Tables("订单明细").rows \'逐行生成报表
wrt.ReplaceOne("[序号]",r.index)
wrt.BuildOne(r)
Next
wrt.Show() \'显示报表
-- 发布时间：2022/1/12 15:57:00
--
模板里改为[序号0]、[序号1]、....这种
For Each r As Row In Tables("订单明细").rows \'逐行生成报表
wrt.ReplaceOne("[序号" & r.index & "]",r.index)
Next
wrt.ReplaceOne("[序号" & r.index & "]",r.index)
Next
wrt.Build()
如果序号都是从1开始，直接在模板里填上1、2、3、4不就行了！
-- 发布时间：2022/1/12 16:47:00
-- 回复：（有点蓝）模板里改为[序号0]、[序号1]、....这...
在麻烦老师一下哈
如果是代码关联的 是不是这样写呢？当前运行没有达到效果
Dim tm As String = ProjectPath & "Attachments\\呈请采取网络信息查询监控措施报告书.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\" & Format(Date.now,"yyyyMMddhhmmss") & "呈请采取网络信息查询监控措施报告书.doc" \'指定目标文件
Dim wrt As New WordReport(tm,fl)
wrt.AddDataTable("报告书","电子审批台账","Sel ect * from {报告书} where 编号= \'"& Tables("报告书登记_table2").Current("编号")&"\'") \'添加父表
wrt.AddDataTable("报告明细","电子审批台账","Se lect * from {报告明细} where 编号= \'"& Tables("报告书登记_table2").Current("编号")&"\'") \'添加子表
wrt.AddRelation("报告书","编号","报告明细","编号") \'建立关联
For Each r As Row In Tables("报告明细").rows \'逐行生成报表
wrt.ReplaceOne("[序号" & r.index & "]",r.index)
Next
wrt.Build()
wrt.Show()
且想实现当报告明细的行数 小于10 才用上述代码 如果大于10 就进行提示 要求删除报告明细大于10的行
[此贴子已经被作者于2022/1/12 16:51:52编辑过]
-- 发布时间：2022/1/12 17:00:00
--
是不是请自行测试
判断比如
if Tables("报告明细").rows.count > 10 then
提示
else
生成报表
endif
[此贴子已经被作者于2022/1/12 17:00:14编辑过]