C# と VB.NET の質問掲示板

タイトルの現象が発生してこまっています。

環境：VisualStudio2005 TeamSuite Developer Edition
言語：VisualBasic2005
プロジェクトタイプ：Windowsアプリケーション


下記のようなコードがあります。

Private Sub XXX()
    Dim ret As Boolean
    Try
        'DB処理
        〜〜〜〜〜〜〜〜
        ret = True '← この部分で例外発生？(この処理の後必ずCatchに移動する)
    Catch ex As Exception
        Throw ex  '←デバッグするとこのexがNothing
    End Try
End Sub

ソース内のコメントのように動作するのですが、３つの疑問点があります。
１．常識的に考えてBoolean型変数にTrueを代入するだけで例外が発生するのはおかしい
２．ret = True で例外が発生していないとして、Catchに移動するのはおかしい
３．exがNothingであるのはおかしい

ちなみに、このソースをFunctionに変更すると正常に動作します。

上記のような現象に遭遇したことのある方がいらっしゃれば、原因と回避策を教えていただきたいです。


宜しくお願い致します。

こんにちは

既にまどかさんがCatch外してダイアログを確認してみれば良いと仰っているので、
冗長なだけですが、

Private Sub XXX()
    Dim ret As Boolean
    Try
        'DB処理
        〜〜〜〜〜〜〜〜
        ret = True '← この部分で例外発生？(この処理の後必ずCatchに移動する)
    Catch ex As Exception
        Throw ex  '← ブレークポイントしかけるならここに仕掛けたほうがいいです
    End Try
End Sub

としてみましょう。
Catchの部分にブレークポイントを仕掛けた場合であれば、
まだExceptionのインスタンスがexに格納されていないのかNothingになりますし、
End Tryを超えるとスコープの範囲外になるのでこれまたNothingになります。

> ちなみに、このソースをFunctionに変更すると正常に動作します。
このFunctionで正常に動作するのが不可解ですね。

考えられる範囲だとステップ実行しているソースと実際に動いているアセンブリが異なるとか
＃ASPをデバッグしているとよくそんな現象があったり