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

はじめまして、たかしと申します。

　　　Private Sub 検索Button_Click(sender As Object, e As EventArgs) Handles 検索Button.Click
     
        Dim Syn_Code As String
        Tbl_syouhinBindingSource.MovePrevious()
        Tbl_syouhinBindingSource.MoveFirst()
        Syn_Code = InputBox("商品コードを入力してください。")
        If Syn_Code = "" Then
            Return
        End If
        Do Until Syn_Code = Me.商品コードComboBox.Text
            Tbl_syouhinBindingSource.MoveNext()
        Loop

　　 End Sub

SQLサーバーにあるテーブルに繋いで上記のような処理を行っています。
このときInputBoxに「存在しない数字」を入力すると、無限ループというか、画面が固まってしまいます。
このような場合になにかトラップする手だてはないものでしょうか？

■No91798 (WebSurfer さん) に返信
> ■No91797 (たかし さん) に返信
> 
>>このときInputBoxに「存在しない数字」を入力すると、無限ループというか、画面が固まってしまいます。
>>このような場合になにかトラップする手だてはないものでしょうか？
> 
> 以下のようにしてみる。Else で Break
> 
> If BindingSource1.Position + 1 < BindingSource1.Count Then
>     BindingSource1.MoveNext()
> 
> 上記は MSDN ライブラリの BindingSource.MoveNext メソッドのサンプルコードの一部です。自分でも
> そういう記事を探してみましょう。

WebSurferさん、たかしです。
次のコードで無事目的を達成することが出来ました。
ありがとうございますn( _ _ )n

 Private Sub 検索Button_Click(sender As Object, e As EventArgs) Handles 検索Button.Click
       
        Dim Syn_Code As String
        Tbl_syouhinBindingSource.MovePrevious()
        Tbl_syouhinBindingSource.MoveFirst()
        Syn_Code = InputBox("商品コードを入力してください。")
        If Syn_Code = "" Then
            Return
        End If
        Do Until Syn_Code = Me.商品コードComboBox.Text
            If Tbl_syouhinBindingSource.Position + 1 < Tbl_syouhinBindingSource.Count Then
                Tbl_syouhinBindingSource.MoveNext()
            Else
                MsgBox("その商品コードは存在しません。")
                Return
            End If
        Loop
        MsgBox("検索完了しました。")
    End Sub