老师们好!我做了一个窗口事件,想要能自动以数据表里的考场号为依据,把考场号相同的数据自动放在以考场号命名的excel文本里,但是我实际操作了下,并不能如我所愿。不知道我是哪里错了呢?我把事件和例子都传上来,麻烦老师们指点迷津,十分感谢!
用的是这个代码:
Dim t As Table = Tables("教务处组织补考学生名单")
For Each n As String In t.DataTable.GetValues("考场号", "考场号 is not null" & iif(t.Filter>"", " and (" & t.filter & ")", ""))
Dim Book As New XLS.Book(ProjectPath & "Attachments\门贴.xls") '打开模板
Dim fl As String = ProjectPath & "教务处组织补考门贴\" & n & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,3).Value = "<考场号='" & n & "'>" '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Next
如果我还想增加条件,比如在考场号的基础上,再按开课院系分一次,不知可以怎么做呢?
十分感谢老师们!祝节日快乐!