Foxtable(狐表)用户栏目专家坐堂 → 执行下列代码就报错,都查不出来哪儿的错?


  共有2227人关注过本帖平板打印复制链接

主题:执行下列代码就报错,都查不出来哪儿的错?

帅哥哟,离线,有人找我吗?
zgjmost
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:498 积分:4611 威望:0 精华:0 注册:2013/4/25 8:02:00
执行下列代码就报错,都查不出来哪儿的错?  发帖心情 Post By:2015/6/16 19:17:00 [只看该作者]

Tables("选课数据表").filter = ""

Tables("选课数据表").Filter = "[测评科目] = '测评' and [机考安排] <> '不排考'"

 

Tables("选课数据表").Sort = "试卷号,学号"

 

Tables("选课数据表").Select(0,0,Tables("选课数据表").Rows.count - 1,Tables("选课数据表").Cols.count - 1 )

Dim Book1 As New XLS.Book(ProjectPath & "Attachments\测评科目学员表.xls")
Dim fl As String = ProjectPath & "Reports\测评类科目学员分数表.xls"
Book1.Build() '生成细节区
Book1.Save(fl) '保存工作簿

 

Tables("选课数据表").filter = ""
Tables("选课数据表").Filter = "[论文类安排] = '论文类安排' and [机考安排] <> '不排考'"

Tables("选课数据表").Sort = "试卷号,学号"

Tables("选课数据表").Select(0,0,Tables("选课数据表").Rows.count - 1,Tables("选课数据表").Cols.count - 1 )

Dim Book2 As New XLS.Book(ProjectPath & "Attachments\论文类科目学员表.xls")
Dim fl2 As String = ProjectPath & "Reports\论文类科目学员分数表.xls"
Book2.Build() '生成细节区
Book2.Save(fl) '保存工作簿

Tables("选课数据表").filter = ""

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150616191503.png
图片点击可在新窗口打开查看

 回到顶部