[VB6 ] 一個SUB內可以有兩個On Error GOTO嗎?

[timohu (隨便說說)]

如提~
假設我想要按一個按鈕後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
推 colawei:goto 後用 err.clear 清掉之前的錯誤訊息就行了