- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 报表问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6924)
-- 发布时间：2010/5/2 23:25:00
-- 报表问题
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
。。。。。。。。
一次性报表输出出错，请问：不知上述代码如何修改？谢谢！
[此贴子已经被作者于2010-5-3 9:15:17编辑过]
-- 发布时间：2010/5/2 23:49:00
--
For …………next语句里面增加临时表，调取数据再打印模板！
-- 发布时间：2010/5/2 23:49:00
--
供参考
按钮代码
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
[此贴子已经被作者于2010-5-3 0:11:59编辑过]
-- 发布时间：2010/5/3 7:50:00
--
谢谢两位，执行代码出现错误提示如下：
此主题相关图片如下：335.bmp
[此贴子已经被作者于2010-5-3 9:18:00编辑过]
-- 发布时间：2010/5/3 9:05:00
--
。。。。。
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
[此贴子已经被作者于2010-5-3 9:15:57编辑过]
-- 发布时间：2010/5/3 10:35:00
--
以下是引用xl在2010-5-3 9:05:00的发言：
。。。。。
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
。。。。。
For each t as Table in Tables
t.Select(0,0,t.rows.count-1,0)
next
这在旧版本能使用，在新版本中不能使用
[此贴子已经被作者于2010-5-3 9:15:57编辑过]
427版可以用
-- 发布时间：2010/5/3 11:27:00
--
呵呵，刚刚测试427版，无法使用，相关提示见3楼。
这是BUG？
-- 发布时间：2010/5/3 12:30:00
--
以下是引用xl在2010-5-3 11:27:00的发言：
呵呵，刚刚测试427版，无法使用，相关提示见3楼。
这是BUG？
呵呵，刚刚测试427版，无法使用，相关提示见3楼。
这是BUG？
我原用的420版，特意下的427版，我的这两个版本都没发现你说的问题啊，是不是你的其它代码的问题？
-- 发布时间：2010/5/3 14:47:00
--
将上述代码隔离出来也显示错误信息。若在一个新文件中重新制作一个按纽不存在这个问题。着实奇怪。
-- 发布时间：2010/5/3 16:58:00
--
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