1、重定向之后,原来的代码应该指定数据源了,例如:
Dim b As New CrossTableBuilder("年度汇总",sql)
应该改为:
Dim b As New CrossTableBuilder("年度汇总",sql, "数据源名称")
2、看看代码中的数据源名称是否正确,另要掌握一点基本的调试技巧:http://www.foxtable.net/help/topics/1485.htm