以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  3.28版模板EXCEL报表出现错误提示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=6393)
--  作者：易服
--  发布时间：2010/3/28 21:48:00
--  3.28版模板EXCEL报表出现错误提示
3.28版模板EXCEL报表出现错误提示

图片点击可在新窗口打开查看此主题相关图片如下：2010-3-28 21-31-11.png
图片点击可在新窗口打开查看
以前从未有过，不是所有模板EXCEL报表出现错误提示。
--  作者：狐狸爸爸
--  发布时间：2010/3/28 21:49:00
--  
做个简单例子看看
--  作者：易服
--  发布时间：2010/3/28 22:16:00
--  
1、生成空表
With Tables("总览")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\\竣工一览表.xls") \'打开模板
Book.Build() \'生成细节区
Book.Save(ProjectPath & "Reports\\竣工一览表.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File =ProjectPath & "Reports\\竣工一览表.xls"
Proc.Start()

图片点击可在新窗口打开查看此主题相关图片如下：2010-3-28 21-59-56.png
图片点击可在新窗口打开查看
2、涉及到表达式列的报表有的出现一楼的错误提示，连续不断地点击“确定”直到错误提示消失，报表还是能出现。如
With Tables("总览")
    .Select(0 ,0, .Rows.Count - 1, .Cols.Count - 1)
End with
Dim Book As New XLS.Book(ProjectPath & "Attachments\\设计一览表.xls") \'打开模板
Book.Build() \'生成细节区
Book.Save(ProjectPath & "Reports\\设计一览表.xls") \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File =ProjectPath & "Reports\\设计一览表.xls"
Proc.Start()
3、例子不太好做
[此贴子已经被作者于2010-3-28 22:18:17编辑过]
--  作者：blackzhu
--  发布时间：2010/3/29 9:03:00
--  
我的情况一样,打开报表产生函数错误的提示,连续按两次确定后,报表会正常显示.是一个BUG.