Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教一下，这个窗口事件是哪里错了呢


  共有1607人关注过本帖树形打印复制链接

主题：请教一下，这个窗口事件是哪里错了呢
帅哥哟，离线，有人找我吗？
zhuzhi
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：476 积分：4039 威望：0 精华：0 注册：2011/11/2 8:55:00 		请教一下，这个窗口事件是哪里错了呢  发帖心情 Post By：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

如果我还想增加条件，比如在考场号的基础上，再按开课院系分一次，不知可以怎么做呢？

十分感谢老师们！祝节日快乐！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询