DB内の次の行に移動しようとすると重複するバインディングエラーが発生する

Question

私はこの全体的なバインディングのことを初めて知りましたが、基本的に私のフォームの次のボタンを押すと、私はそれがより多くのコードを追加する前にそれがすべて動作することを確認したいので、以下は単なる一時的なものです。

セクションをロードすると、フォームに最初の行がプリロードされるので、次を押すと行2に移動し、次に行3などに移動しますが、次に移動するときに移動します行2から行3に渡すと、エラーが発生します。これにより、コレクション内の2つのバインディングが同じプロパティにバインドされます。

コード：

Private Sub click() 
    sql = "Select * from tbl" 
    Using dbcon As New OleDbConnection(ACEConnStr) 
     Using cmd As New OleDbCommand(sql, dbcon) 

      dbcon.Open() 

      dtSample = New DataTable 
      dtSample.Load(cmd.ExecuteReader) 

     End Using 
    End Using 

    ' initialize BS from DT 
    bsSample = New BindingSource(dtSample, Nothing) 

    TxtCI.DataBindings.Add("Text", bsSample, "CustomerID") 
End Sub 

次へ]ボタン：

Private Sub BtnNext_Click(sender As Object, e As EventArgs) Handles BtnNext.Click 
    click() 
    DataBindings.Clear() 
    bsSample.MoveNext() 

    BtnNext.Enabled = (bsSample.Count - 1 > bsSample.Position) 
End Sub 

Answer 1

このコードブロックは：

Private Sub nclick() 
    sql = "Select * from tblcustomer" 
    Using dbcon As New OleDbConnection(ACEConnStr) 
     Using cmd As New OleDbCommand(sql, dbcon) 

      dbcon.Open() 

      dtSample = New DataTable 
      dtSample.Load(cmd.ExecuteReader) 
     End Using 
    End Using 

    ' initialize BS from DT 
    bsSample = New BindingSource(dtSample, Nothing) 
    TxtCI.DataBindings.Add("Text", bsSample, "CustomerID") 
    TxtName.DataBindings.Add("Text", bsSample, "Title") 
    ChkSales.DataBindings.Add("Checked", bsSample, "SalesCustomer") 
End Sub 

...一度実行する必要があるが、一度のみ。それをフォーム全体に移動します。その後：

Private Sub BtnNext_Click... 
    bsSample.MoveNext() 

    BtnNext.Enabled = (bsSample.Count - 1 > bsSample.Position) 
End Sub 

は、私は、これは検索ダイアログまたは何であるかどうかわからないのですが、すべての顧客のためのDataTableは、アプリケーション全体の用途持つことができることに留意すべきである - 顧客の＃30がしようとする前に存在するかどうかどうかのチェックなどをそれらを削除します。