以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导入文件名有误时如何插入Messagebox代替系统报错?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53972)

--  作者:lvfox
--  发布时间:2014/7/19 1:09:00
--  导入文件名有误时如何插入Messagebox代替系统报错?

老师:

  在导入excel文件时,万一文件名有误,在哪插入什么代码?用messagebox提示文件名错?

因为系统会报错不太美观。


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/7/19 9:03:00
--  
利用这个事件 BeforeShowErrorMessage http://www.foxtable.com/help/topics/2655.htm
--  作者:lvfox
--  发布时间:2014/7/19 13:01:00
--  

BIN老师给的提示查了,这个BeforeShowErrorMessage帮助中说的很抽象,没有举例,不知道用法。

试了TRY捕获错误,还是系统报错的界面。

try

Dim mg As New Merger
mg
.SourcePath = "c:\\data\\销售管理.xls"
mg
.Format = "excel" \'指定格式
mg
.SourceTableName = "订单$" \'指定要合并的表
mg
.DataTableName = "订单" \'指定接收数据的表
mg
.Merge() \'开始合并

Catch ex As Exception
MessageBox.Show(
"导入文件名不正确!")

End
Try

老师,能以这个例子给以上方法的代码吗?


--  作者:Bin
--  发布时间:2014/7/19 14:15:00
--  

e参数属性:

Event:   字符型,返回发生错误的事件名称
Message1: 字符型,返回简明错误信息
Message2: 字符型,返回详细错误信息
Cancel:  逻辑型,设为True将禁止系统显示错误信息。
ex:       System.Exception类型,返回发生的错误,一般用户不需要使用此参数。


利用E参数来判断 错误提示, 如果是这个错误提示.就执行 e.cancel=true


--  作者:lvfox
--  发布时间:2014/7/19 17:52:00
--  

老师,是这样,窗口上做了个按纽,通过这个button来导入excel,实际工作中,excel名称有时不规范,如何达到自定义的报错提示信息?

  在BeforeShowErrorMessage 如何来写event 返回错误的事件名称?

   e.cancel = true 这个写在项目事件后,系统是不报错了,但一切都归于沉默了,啥都没有。

 甜老师,能就这个问题写个代码示范一下么? 我跟不上BIN老师的节奏。

 


--  作者:lvfox
--  发布时间:2014/7/19 22:10:00
--  

已解决啦!

都是帮助中的这段描述惹的祸,前后矛盾,让人迷惑!!

前面说:

Cancel: 逻辑型,设为True将禁止系统显示错误信息。

后面又说:

提示:

最好不要将Cancel参数设置为False,否则发生错误也不会提示,无法及时发现和纠正错误。

 

为了有个在好提示界面,不设将cancel设为true又能么办?