以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编辑Excel报表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49791)
--  作者：rxbdchrx
--  发布时间：2014/4/24 8:58:00
--  编辑Excel报表问题

新版的foxtable能借助WebBrowser控件，在窗口中显示、编辑和打印生成的Excel报表。

 

我按照帮助文档的方法测试了,但不知什么原因,总不成功.

 

我的代码如下:

 

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tmp As String = ProjectPath & "Attachments\\Book1.xls"
Dim rpt As String = ProjectPath & "Reports\\Book1.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)

wbr.OfficeToolBar = True \'如果不需要显示工具栏,可删除此行代码
wbr.AddRess = tmp

 

测试结果是:wbr.OfficeToolBar = True 这句话根本不起作用,工具栏根本不显示.

 

请哪位老师帮助看看,谢谢

 
--  作者：狐狸爸爸
--  发布时间：2014/4/24 9:00:00
--  

True不行，就False:

 

wbr.OfficeToolBar = False
--  作者：rxbdchrx
--  发布时间：2014/4/24 9:05:00
--  

wbr.OfficeToolBar = False

 

结果一样
--  作者：有点甜
--  发布时间：2014/4/24 9:17:00
--  
 测试，确实是不会出现工具栏......
--  作者：有点甜
--  发布时间：2014/4/24 9:30:00
--  

 反复测试，又出现了。

 

 先改成False，之后注释掉，再改成True，然后，就这正常了。

 

 正常了...奇怪。
--  作者：rxbdchrx
--  发布时间：2014/4/24 11:34:00
--  

如果在excel2007下测试,工具条一闪后消失,如果在excel2003下测试,工具条闪都不闪,压根不出现.

 
--  作者：有点甜
--  发布时间：2014/4/24 11:41:00
--  

 不应该，感觉。联系客服瞧一下

 

QQ 800014337

QQ 2450314695

[此贴子已经被作者于2014-4-24 11:41:17编辑过]
--  作者：有点甜
--  发布时间：2014/4/24 15:46:00
--  
 远程测试发觉楼主电脑确实显示不出这个 工具栏，我自己测试，也偶尔不出现，是bug吗？