[求助]条件输出word报表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)

wrt.Show() '显示报表

End If

主题：[求助]条件输出word报表