Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:用Excel报表实现分组打印的例子

1楼
狐狸爸爸 发表于:2008/12/22 9:27:00
做了一个用Excel报表实现分组打印的例子,标题也能自动变化,原理很简单的:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7_1222.zip


执行过程会有闪烁,但是不影响使用。
你可以在这个基础上轻松实现分组统计报表,大家自己改一下,就算是作业吧。
2楼
smileboy 发表于:2008/12/22 9:35:00
有时间学习一下
3楼
舜风 发表于:2008/12/22 9:42:00
嘿嘿,谢谢.

参考学习
4楼
kylin 发表于:2008/12/22 10:52:00
做一下作业去
5楼
烟酒 发表于:2008/12/22 11:07:00
下来学习
6楼
xysheng 发表于:2008/12/22 11:26:00
学习中,多谢
7楼
易服 发表于:2008/12/22 13:27:00
能为代码加上注释更好
Dim pds As List(Of String) = DataTables("订单").GetUniqueValues("","产品")
For Each pd As String In pds
    Vars("Caption") = pd
    With Tables("订单")
        .Filter = "[产品] = '" & pd & "'"
        .Select(0,0,.Rows.Count-1,.Cols.Count-1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "Reports\订单.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "Reports\订单.xls"
    Proc.Verb = "Print"
    Proc.Start()
Next
Tables("订单").Filter = ""
Tables("订单").Select(0,0)
[此贴子已经被作者于2008-12-22 13:27:16编辑过]
8楼
菜鸟foxtable 发表于:2008/12/22 13:34:00
以下是引用易服在2008-12-22 13:27:00的发言:
能为代码加上注释更好
Dim pds As List(Of String) = DataTables("订单").GetUniqueValues("","产品")
For Each pd As String In pds
    Vars("Caption") = pd
    With Tables("订单")
        .Filter = "[产品] = '" & pd & "'"
        .Select(0,0,.Rows.Count-1,.Cols.Count-1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
    Book.Build() '生成细节区
    Book.Save(ProjectPath & "Reports\订单.xls") '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = ProjectPath & "Reports\订单.xls"
    Proc.Verb = "Print"
    Proc.Start()
Next
Tables("订单").Filter = ""
Tables("订单").Select(0,0)
[此贴子已经被作者于2008-12-22 13:27:16编辑过]

楼上的,老爹把鱼都给你了,就自己做来吃吧....
咱不能让老爹把鱼做熟了再吃吧?图片点击可在新窗口打开查看
9楼
abcdzabcdz 发表于:2008/12/22 15:15:00

学习中.......

10楼
gdlgh 发表于:2008/12/22 15:43:00
学习!!
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 3 queries.