共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]报表套打问题
1楼
roc_hu 发表于：2025/3/9 13:07:00[求助]报表套打问题
临时表中，实现每行调用不同报表模版套打，这个是否有一些案例，请教下老师，大神们。
临时表中，实现每行调用不同报表模版套打，这个是否有一些案例，请教下老师，大神们。
2楼
roc_hu 发表于：2025/3/9 16:43:00套打时候，word模版的流水号怎么实现
3楼
roc_hu 发表于：2025/3/9 16:46:00
Dim drs As List(of
DataRow) = DataTables("出库").Select("出库日期 = #"
&
Date.Today
&
"#") '筛选出符合条件的行
If drs.Count > 0 Then '如果存在符合条件的行
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 dr As DataRow In drs '逐行生成报表
wrt.BuildOne(dr)
Next
wrt.Show() '显示报表
End If
但是这个模版，我怎么先匹配出临时表中的 模版号，对应选出指定模版，再进行套打，上述代码需要怎么优化？
If drs.Count > 0 Then '如果存在符合条件的行
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 dr As DataRow In drs '逐行生成报表
wrt.BuildOne(dr)
Next
wrt.Show() '显示报表
End If
但是这个模版，我怎么先匹配出临时表中的 模版号，对应选出指定模版，再进行套打，上述代码需要怎么优化？
4楼
roc_hu 发表于：2025/3/9 17:18:00问题已经解决
5楼
roc_hu 发表于：2025/3/9 17:18:00以下是引用roc_hu在2025/3/9 16:43:00的发言：
套打时候，word模版的流水号怎么实现
套打时候，word模版的流水号怎么实现
流水号还没有解决
6楼
有点蓝 发表于：2025/3/9 20:35:00什么流水号？截图说明一下
7楼
roc_hu 发表于：2025/3/15 10:22:00
8楼
有点蓝 发表于：2025/3/15 10:33:001、没看懂
2、使用流水号更改保存的名称即可
Dim fl As String = ProjectPath & "Reports\" & dr("流水号") &".doc" '指定目标文件
9楼
roc_hu 发表于：2025/3/15 19:41:001.逻辑是：当【拆分】列的值是Y时候, 那么系统自动新增这一整行的信息,并[流水编码]填写为FC001-1
寄如表中第一行【拆分】列值为Y，系统新增一行复制这行的信息，[流水编码]填写为FC001-1
寄如表中第一行【拆分】列值为Y，系统新增一行复制这行的信息，[流水编码]填写为FC001-1
共9 条记录, 每页显示 10 条, 页签:
[1]