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

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

怎么可能呢？？？？  标 和 签 怎么会分开？：

Dim Vals() As String = {"标签一","标签二"}
For Val As Integer = 0 To Vals.Length - 1
    MessageBox.show(Vals(Val))
Next

用我6楼的代码可以一次性连续打开所有Excel。（只是把上面的第一行代码拆分了而已）

呵呵，还真没注意到呢。

这是不可能的呀，你一定是标和签之间有个“，”号