| 以文本方式查看主题 - 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=117444) |
| -- 作者：lihe60 -- 发布时间：2018/4/12 15:43:00 -- word报表如何生成 准备把两个表生成一个查询表，然后从查询表中取数生成word报表，下面的代码如何写。 Dim tm As String = ProjectPath & "Attachments\\模版.doc" \'指定模板文件 Dim fl As String = "c:\\Reports\\word报表.doc" \'指定目标文件 Dim wrt As New WordReport(e.Form.controls("table1").Table,tm,fl) \'定义一个WordReport wrt.Build() \'生成报表 wrt.Show() \'显示报表
[此贴子已经被作者于2018/4/12 15:43:40编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/4/12 16:55:00 -- 你查询表表名是什么？
Dim tm As String = ProjectPath & "Attachments\\模版.doc" \'指定模板文件
Dim fl As String = "c:\\Reports\\word报表.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("查询表"),tm,fl) \'定义一个WordReport
wrt.Build() \'生成报表
wrt.Show() \'显示报表
|
| -- 作者：lihe60 -- 发布时间：2018/4/12 17:37:00 -- 这个查询表是临时的，没有名称为查询表的表。如果有这个表就好办了。 |
| -- 作者：有点甜 -- 发布时间：2018/4/12 17:43:00 -- 以下是引用lihe60在2018/4/12 17:37:00的发言：
这个查询表是临时的，没有名称为查询表的表。如果有这个表就好办了。
只要是能看到的表，都有表名。
如果是窗口表，就是 Tables("窗口1_Table1") |
| -- 作者：lihe60 -- 发布时间：2018/4/12 17:50:00 -- Dim tm As String = ProjectPath & "Attachments\\模版.doc" \'指定模板文件 Dim fl As String = "c:\\Reports\\word报表.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("窗口1_Table1"),tm,fl) \'定义一个WordReport wrt.Build() \'生成报表 wrt.Show() \'显示报表 提示有错误
|
| -- 作者：有点甜 -- 发布时间：2018/4/12 17:52:00 -- 1、你如何生成查询表的？
2、你查询表在哪个窗口，叫什么名字？ |