以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]如何利用CheckedComboBox控件打印多个报表?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10408)

--  作者:blackzhu
--  发布时间:2011/6/3 21:16:00
--  [讨论]如何利用CheckedComboBox控件打印多个报表?
以下是引用易服在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
--  发布时间: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
--  发布时间:2011/6/4 7:43:00
--  
你理解错了,不是这个意思!
--  作者:狐狸爸爸
--  发布时间:2011/6/4 8:24:00
--  

用split拆分CheckedComboBox的值即可:

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


 


--  作者:blackzhu
--  发布时间:2011/6/4 10:37:00
--  
我今日下午研究一下.
--  作者:mr725
--  发布时间: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
--  发布时间:2011/6/4 15:01:00
--  
MR你的代码我也做过,用MessageBox.SHOW,可以找到控件的值,但是没有打印.提示和我的一样.
--  作者:mr725
--  发布时间:2011/6/4 15:13:00
--  
只是显示的,要打印要加 Proc.Verb = "Print"  这个动作。
--  作者:blackzhu
--  发布时间:2011/6/4 15:33:00
--  
没有用,你的代码我测试了,没有用.不是显示不显示的问题?我用MessageBox.SHOW测试了一下.
比如控件的值为"标签一,标签二",测试下来是标  然后是签.所以说找不到报表.

--  作者:blackzhu
--  发布时间: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

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