word模板中怎么实现关联表中的数据行组合序号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

word模板中怎么实现关联表中的数据行组合序号

怎么实现这个序号根据打印的关联表数据行多少赋值呢？

<Index> 这个部分该怎么写呢？

试了一下还是不得要领麻烦老师指导下

是否是如下方法呢？

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() '显示报表

模板里改为[序号0]、[序号1]、....这种

For Each r As Row In Tables("订单明细").rows '逐行生成报表
wrt.ReplaceOne("[序号" & r.index & "]",r.index)
Next

wrt.Build()

如果序号都是从1开始，直接在模板里填上1、2、3、4不就行了！

在麻烦老师一下哈

如果是代码关联的是不是这样写呢？当前运行没有达到效果

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)

wrt.Build()

wrt.Show()

且想实现当报告明细的行数小于10 才用上述代码如果大于10 就进行提示要求删除报告明细大于10的行

[此贴子已经被作者于2022/1/12 16:51:52编辑过]

是不是请自行测试

判断比如

if Tables("报告明细").rows.count > 10 then

提示

else

生成报表

endif

[此贴子已经被作者于2022/1/12 17:00:14编辑过]

主题：word模板中怎么实现关联表中的数据行组合序号