Foxtable(狐表)用户栏目专家坐堂 → [讨论]如何利用CheckedComboBox控件打印多个报表?


  共有15691人关注过本帖树形打印复制链接

主题:[讨论]如何利用CheckedComboBox控件打印多个报表?

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
[讨论]如何利用CheckedComboBox控件打印多个报表?  发帖心情 Post By:2011/6/3 21:16:00 [只看该作者]

以下是引用易服在2011-5-24 16:31:00的发言:

一键打印多个报表

Dim Names() As String
Names = New String() {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
For Each Name As String In Names
    With Tables("分组统计")
        .Select(0 ,0 ,.Rows.Count - 1, .Cols.Count - 1)
    End With
    Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
    Book.Build() '生成细节区
    Book.Save("D:\My Documents\退耕报表\"& Name & ".xls") '保存工作簿
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\My Documents\退耕报表\"& Name & ".xls")
    Dim Wd As MSExcel.Window = Wb.Windows(1)    '表示当前工作簿窗口
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    Wd.DisplayZeros = False                 '不显示0值
    App.Visible = True
Next

   我们知道利用"CheckedComboBox"控件可以选择多值,如果我利用这个控件选择多个报表,那么代码怎么写?我写来写去还是只能打印一个报表,选择两个就没有反应了.


 回到顶部
帅哥哟,离线,有人找我吗?
e-png
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1695 积分:10725 威望:0 精华:0 注册:2009/10/25 16:45:00
  发帖心情 Post By:2011/6/3 23:00:00 [只看该作者]

你少了个maintable=Name(也许这个多余了,试试看吧),然后


    With Tables(name)
        .Select(0 ,0 ,.Rows.Count - 1, .Cols.Count - 1)
    End With

[此贴子已经被作者于2011-6-3 23:05:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/4 7:43:00 [只看该作者]

你理解错了,不是这个意思!

 回到顶部
帅哥,在线噢!
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/4 8:24:00 [只看该作者]

用split拆分CheckedComboBox的值即可:

http://help.foxtable.com/topics/0245.htm


 


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/4 10:37:00 [只看该作者]

我今日下午研究一下.

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/6/4 13:24:00 [只看该作者]

 

Dim Ns As WinForm.CheckedComboBox = Forms("窗口2").Controls("CheckedComboBox1")
If Ns.text > ""
    For i As Integer = 0 To Ns.text.split(",").length -1
        Dim Book As New XLS.Book("C:\foxtable\CaseStudy\Attachments\" & Ns.text.split(",")(i) & ".xls") '打开模板
        Book.Build() '生成细节区
        Book.Save("C:\foxtable\CaseStudy\reports\" & Ns.text.split(",")(i) & ".xls") '保存工作簿
       
        Dim Proc As New Process '打开工作簿
        Proc.File = "C:\foxtable\CaseStudy\reports\" & Ns.text.split(",")(i) & ".xls"
        Proc.Start()
    Next
End If


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/4 15:01:00 [只看该作者]

MR你的代码我也做过,用MessageBox.SHOW,可以找到控件的值,但是没有打印.提示和我的一样.

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/6/4 15:13:00 [只看该作者]

只是显示的,要打印要加 Proc.Verb = "Print"  这个动作。

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/4 15:33:00 [只看该作者]

没有用,你的代码我测试了,没有用.不是显示不显示的问题?我用MessageBox.SHOW测试了一下.
比如控件的值为"标签一,标签二",测试下来是标  然后是签.所以说找不到报表.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/6/4 15:51:00 [只看该作者]

Dim Vals() As String = Forms("窗口3").Controls("CheckedComboBox1").Value.Split(",")
For Val As Integer = 0 To Vals.Length - 1
    MessageBox.show(Vals(Val)) 
Next

  我用这个代码可以测试出标签一的字符

 回到顶部
总数 21 1 2 3 下一页