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 = ""
以下是引用舜风在2009-3-15 22:47:00的发言:
可我不明白最后的一句代码作用? Tables("当月在职工资表").Filter = ""
用于重新显示所有行啊
呵呵,我强烈建议你在商业版本发布后,重新看看帮助文件。
以下是引用狐狸爸爸在2009-3-15 23:08:00的发言:
用于重新显示所有行啊
呵呵,我强烈建议你在商业版本发布后,重新看看帮助文件。
嘿嘿.不好意思
我是想先把这程序基本功能完成并使用 , 之后再来仔细的学习研究设置一些现我还无法实现的任务.
而我可不想玩商业版,我想一步到位:开发版
![dvubb 图片点击可在新窗口打开查看](images/emot/em63.gif)
我将设计的项目很多,工资程序为急(好向老板吹嘘后要钱购开发版)。
我也知道我的代码现很粗糙,不过也“基本”能够使用
而现也就差两、三条代码便能“完成”此程序的“基本功能”了,希望能多多支持