| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]条件输出word报表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118420) |
|
| -- 作者：witkeylaw -- 发布时间：2018/5/2 15:45:00 -- [求助]条件输出word报表
[此贴子已经被作者于2018/5/2 15:49:30编辑过]
|
|
| -- 作者：有点甜 -- 发布时间：2018/5/2 15:48:00 -- 写代码处理
http://www.foxtable.com/webhelp/scr/2890.htm
|
|
| -- 作者：witkeylaw -- 发布时间：2018/5/2 15:53:00 -- mark 示例二。 谢谢。
|
|
| -- 作者：witkeylaw -- 发布时间：2018/5/2 17:13:00 -- Dim drs As List(of DataRow) = DataTables("特种作业证").Select("证件类别 = \'电工证\'") \'筛选出符合条件的行 If drs.Count > 0 Then \'如果存在符合条件的行 Dim tm As String = ProjectPath & "Attachments\\word报表模版.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\word报表模版.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 未能实现，再研究一下。
|
|
| -- 作者：有点甜 -- 发布时间：2018/5/2 17:19:00 -- 1、模板不需要使用【员工信息表】，直接对【特种作业证】表设计模板；
2、代码
Dim drs As List(of DataRow) = DataTables("特种作业证").Select("证件类别 = \'电工证\'") \'筛选出符合条件的行
If drs.Count > 0 Then \'如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\\word报表模版.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\word报表模版.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
|
|
| -- 作者：witkeylaw -- 发布时间：2018/5/2 17:31:00 -- 楼上的代码是明白的，但是不是想要的效果，迟些再弄个项目说明一下。 |