主题：报表问题

For each t as Table in Tables
      t.Select(0,0,t.rows.count-1,0)
next

。。。。。。。。

一次性报表输出出错，请问：不知上述代码如何修改？谢谢！

For …………next语句里面增加临时表，调取数据再打印模板！

供参考
按钮代码
If DataTables.Contains("分组统计") '如果存在分组统计
    Dim Names() AS String = {"结果分析表","林种统计表","面积统计表","秋季验收表","补助测算表","坡度统计表","权属统计表","设计汇总表","设计统计表","投资测报表","预算汇总表","植被统计表","验收汇总表","二期补助表"}
    For Each Name As String In Names
        With Tables("分组统计")
            .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
        End with
        Dim Book As New XLS.Book(ProjectPath & "Attachments\" & Name & ".xls") '打开模板
        Book.Build() '生成细节区
        Book.Save(ProjectPath & "Reports-:special:1:-& Name & ".xls") '保存工作簿
        Dim Proc As New Process '打开工作簿
        Proc.File =ProjectPath & "Reports-:special:1:-& Name & ".xls"
        Proc.Start()
    Next
Else
    MessageBox.Show("先统计!", "提示")
End If


此主题相关图片如下：qq截图未命名.png

谢谢两位，执行代码出现错误提示如下：

此主题相关图片如下：335.bmp

。。。。。
For each t as Table in Tables
      t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用

427版可以用

呵呵，刚刚测试427版，无法使用，相关提示见3楼。

这是BUG？

我原用的420版，特意下的427版，我的这两个版本都没发现你说的问题啊，是不是你的其它代码的问题？

将上述代码隔离出来也显示错误信息。若在一个新文件中重新制作一个按纽不存在这个问题。着实奇怪。

lxl老师帮忙解决了问题，原设计有问题：
For Each t As Table In Tables
     If t.rows.count > 0 Then
    t.Select(0,0,t.rows.count-1,0)
End If
next