[求助]狐之爸：分组打印按钮的问题还是没有解决呀 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用狐狸爸爸在2009-2-18 9:54:00的发言：

Dim Arys As List(Of String())
Arys = DataTables("工资").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
      With Tables("工资")
           .Filter = 条件
           .Select(0,0,.Rows-1,.Cols-1)
           '打印excel报表的代码
      End With
Next
Tables("工资") = ""

[此贴子已经被作者于2009-2-18 9:54:01编辑过]

问题一：如果依    .Select(0,0,.Rows-1,.Cols-1)   会提示错误代码
问题二：最后的 Tables("工资") = ""      是什么意思？不懂

我现设置如下（当然是错误的代码,请高手帮我完善）：

Dim Arys As List(Of String())
Arys = DataTables("当月在职工资表").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
    With Tables("当月在职工资表")
        .Filter = "[是否停发] = False"
        .Select(0,0,.Rows.Count -1,.Cols.Count -1)
        Dim Book As New XLS.Book(ProjectPath & "Attachments\工资.xls")
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Book.Build()
        Book.Save(ProjectPath & "Reports\工资.xls")
        Dim Proc As New Process
        Proc.File = ProjectPath & "Reports\工资.xls"
        Proc.Start()
    End With
Next

主题：[求助]狐之爸：分组打印按钮的问题还是没有解决呀