Dim Arys As List(Of String())
Arys = DataTables("当月在职工资表").GetUniqueValues("", "所在单位","所在部门")
For Each Ary As String() In Arys
With Tables("当月在职工资表")
.Filter = "[是否停发] = False And [所在单位] = '" & Ary(0) & "' And [所在部门] = '" & Ary(1) & "'"
If .Rows.Count = 0 then
Continue for
End If
.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.Verb = "Print"
Proc.Start()
End With
Next
Tables("当月在职工资表").Filter = ""
谢谢狐他爸的最新代码,问题已解决
可我不明白最后的一句代码作用? Tables("当月在职工资表").Filter = ""