以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- word模板 怎么在代码中设置只打印一条数据呢? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169449) |
||
-- 作者:cnsjroom -- 发布时间:2021/6/17 10:58:00 -- word模板 怎么在代码中设置只打印一条数据呢? word模板 怎么在代码中设置只打印一条数据呢? Dim tm As String = ProjectPath & "Attachments\\议程.doc" Dim fl As String = ProjectPath & "Reports\\议程.doc" Dim wrt As New WordReport(tm,fl) \'注意这里无需指定表名 wrt.AddDataTable("党史教育学习台账","智慧党建","Sel ect * from {党史教育学习台账}") wrt.Build() wrt.Show() 当前模板内容如下: [单位] 党史学习教育和“牢记殷切嘱托、 忠诚干净担当、喜迎建党百年”专题教育 [学习方式]议程 时间:[时间] 地点:[地点] 主持:[主持人] 参会人员:[参加人员] 主题:[主题] 内容: [内容] |
||
-- 作者:有点蓝 -- 发布时间:2021/6/17 12:05:00 -- 只返回一条数据 |
||
-- 作者:cnsjroom -- 发布时间:2021/6/17 12:16:00 -- 回复:(有点蓝)只返回一条数据wrt.AddDataTable("党... 老师 这个方式的话 跟单个选择打印模板是一样的效果 我想实现的是每一个word模板指定的页 只有一条数据 第一条数据显示完毕之后 不足一页就翻页 如果超过一页 就继续显示 显示完毕后再翻页 然后对应的议程标题 下一页显示并显示下一条数据
|
||
-- 作者:有点蓝 -- 发布时间:2021/6/17 12:47:00 -- Dim tm As String = ProjectPath & "Attachments\\议程.doc" Dim fl As String = ProjectPath & "Reports\\议程.doc" Dim wrt As New WordReport(tm,fl) \'注意这里无需指定表名 wrt.AddDataTable("党史教育学习台账","智慧党建","Sel ect * from {党史教育学习台账}") wrt.RecordsOnEachPage = 1 wrt.Build() wrt.Show()
|
||
-- 作者:cnsjroom -- 发布时间:2021/6/17 14:50:00 -- 回复:(有点蓝)Dim tm As String = ProjectPa... 谢谢老师 |