共21 条记录, 每页显示 10 条, 页签: [1] [2][3]

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

1楼

blackzhu 发表于：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"控件可以选择多值,如果我利用这个控件选择多个报表,那么代码怎么写?我写来写去还是只能打印一个报表,选择两个就没有反应了.

2楼

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编辑过]

3楼

blackzhu 发表于：2011/6/4 7:43:00

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

4楼

狐狸爸爸 发表于：2011/6/4 8:24:00

用split拆分CheckedComboBox的值即可：

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

5楼

blackzhu 发表于：2011/6/4 10:37:00

我今日下午研究一下.

6楼

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

7楼

blackzhu 发表于：2011/6/4 15:01:00

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

8楼

mr725 发表于：2011/6/4 15:13:00

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

9楼

blackzhu 发表于：2011/6/4 15:33:00

没有用,你的代码我测试了,没有用.不是显示不显示的问题?我用MessageBox.SHOW测试了一下.

比如控件的值为"标签一,标签二",测试下来是标然后是签.所以说找不到报表.

10楼

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))

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

共21 条记录, 每页显示 10 条, 页签: [1] [2][3]