- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导出word报表代码出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193271)
-- 发布时间：2024/8/30 17:13:00
-- 导出word报表代码出错
在窗体中导出单击按钮代码如下：
Dim drs As Table = Tables("web检查问题库子表")
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("web检查问题库子表"), tm, fl) \'定义一个WordReport
For Each dr As DataRow In drs
wrt.BuildOne(dr)
Next
wrt.Show() \'显示报表
End If
此主题相关图片如下：qq截图20240830171224.jpg
-- 发布时间：2024/8/30 17:22:00
--
Dim t As Table = Tables("web检查问题库子表")
If t.Rows.Count > 0 Then \'如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\\问题照片导出模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\问题照片导出模板.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("web检查问题库子表"), tm, fl) \'定义一个WordReport
For Each r As Row In t.Rows
wrt.BuildOne(r)
Next
wrt.Show() \'显示报表
End If