专家坐堂-执行下列代码就报错，都查不出来哪儿的错？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  执行下列代码就报错，都查不出来哪儿的错？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70167)

--  作者：zgjmost
--  发布时间：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

--  作者：zgjmost
--  发布时间：2015/6/16 19:18:00
--

文件一个都没产生！

--  作者：sloyy
--  发布时间：2015/6/16 19:29:00
--
都提示你错误原因了

要么是模板文件不存在,要么是某个列名写错

--  作者：大红袍
--  发布时间：2015/6/16 19:30:00
--

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

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

If Tables("选课数据表").Rows.Count > 0 Then

    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) \'保存工作簿
End If

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

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

If Tables("选课数据表").Rows.Count > 0 Then
    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) \'保存工作簿
End If

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