- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185122)
-- 发布时间：2023/2/5 16:32:00
-- [求助]报表
此主题相关图片如下：7.png
独少生成报表的代码，生成报表的系统代码有吗？
-- 发布时间：2023/2/5 21:00:00
--
参考：http://www.foxtable.com/webhelp/topics/1145.htm
-- 发布时间：2023/2/6 10:08:00
--
这个我有看，
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build() \'生成细节区
Book.Sheets(0).Rows.RemoveAt(0) \'删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
不过没有word的，怎改成word的？
-- 发布时间：2023/2/6 10:10:00
--
http://www.foxtable.com/webhelp/topics/2890.htm
-- 发布时间：2023/2/6 21:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:12.zip |
在按钮中设代码：
Dim rs As List(Of Row) = Tables("表A").GetCheckedRows
Tables("表A").ShowCheckBox = True
If rs.Count > 0 Then \'如果存在符合条件的行
Dim tm As String = ProjectPath & "Attachments\\表A.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\表A.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"), tm, fl) \'定义一个WordReport
For Each r As Row In rs \'逐行生成报表
wrt.BuildOne(r)
Next
wrt.Show() \'显示报表
End If
不知怎搞的就是打不开wordg表
[此贴子已经被作者于2023/2/6 21:43:25编辑过]
-- 发布时间：2023/2/6 22:01:00
--
到底有没有仔细看过帮助？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2023/2/6 22:04:00
--
到底是使用行号列，还是逻辑列进行勾选的！
如果使用的是行号列，需要预先开启，然后勾选了才能使用。
如果使用的是逻辑列，按照普通的筛选方式，对逻辑列筛选后再使用：http://www.foxtable.com/webhelp/topics/0448.htm，或者使用select获取逻辑列勾选的行：http://www.foxtable.com/webhelp/topics/0400.htm
-- 发布时间：2023/2/6 22:26:00
--
行号列怎开启啊?
-- 发布时间：2023/2/6 22:30:00
--
此主题相关图片如下：8.png
是这样吧？
-- 发布时间：2023/2/6 22:36:00
--
此主题相关图片如下：9.png
还是打不开，帮我看下我上传的模板，，改下好吗？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:12.zip |