作者timohu (随便说说)
看板Visual_Basic
标题[VB6 ] 一个SUB内可以有两个On Error GOTO吗?
时间Mon Aug 14 13:49:54 2006
如提~
假设我想要按一个按钮後VB在SQL内建立两个资料表:
Set cn = New ADODB.Connection
cn.ConnectionString = "..........."
mySQL = ".............."
On Error GoTo Open_Err1
Set rs = New ADODB.Recordset
rs.Open mySQL, cn, adOpenStatic
Open_Err1:
mySQL = "........................."
On Error GoTo Open_Err2
Set rs = New ADODB.Recordset
rs.Open mySQL, cn, adOpenStatic
Open_Err2:
为了预防资料表已存在所做的两个On Error GoTo
但是第二个好像都没有作用
如果第二个资料表已存在照理说应该会跳到最後面吧?
结果程式还是照样执行新增资料表 所以会出现错误讯息
是不是SUB内不能有两个阿??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.124.129.194
1F：推 colawei:goto 後用 err.clear 清掉之前的错误讯息就行了 08/14 19:27