- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教一下，这个窗口事件是哪里错了呢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124609)
-- 发布时间：2018/9/10 15:44:00
-- 请教一下，这个窗口事件是哪里错了呢
老师们好！我做了一个窗口事件，想要能自动以数据表里的考场号为依据，把考场号相同的数据自动放在以考场号命名的excel文本里，但是我实际操作了下，并不能如我所愿。
不知道我是哪里错了呢？我把事件和例子都传上来，麻烦老师们指点迷津，十分感谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:门贴.xls |
用的是这个代码：
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
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:自动生成排考表.rar |
如果我还想增加条件，比如在考场号的基础上，再按开课院系分一次，不知可以怎么做呢？
十分感谢老师们！祝节日快乐！
-- 发布时间：2018/9/10 16:43:00
--
参考代码
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(0) & "-" & n(1) & ".xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,3).Value = "<考场号=\'" & n(0) & "\' and 开课院系=\'" & n(1) & "\'>" \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Next