DB

Question

bir sonraki satıra gitmeye çalışırken yinelenen bağlamaları hatası Ben tüm bu bağlayıcı şey yeni ama temelde benim formda sonraki düğmeye bastığımda her satırın görüntüleyen kodumda veriyorum ama kod sağlayacağım anlamına gelir Aşağıda, ona daha fazla kod eklemeden önce çalıştığından emin olmak istediğim bir temp.

Bölümümü yüklediğimde, ilk satırı formumun içine önyükleme yapar, böylece bir sonraki düğmeye bastığınızda sizi 2. satıra götürür ve bir sonraki satır 3'ü sıraya getirir, ancak ileri gitmek için vurduğumda satır 2'den satır 2'ye kadar hata alırsınız: Bu, koleksiyondaki iki bağlamanın aynı özelliğe bağlanmasına neden olur.

Kodu:

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 

Sonraki düğmesi:

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

Bu kod bloğu:

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 

... bir kez çalıştırmak gerekiyor, ama bir kez sadece. Bütün lotunu form yüküne taşıyın. Ardından:

Private Sub BtnNext_Click... 
    bsSample.MoveNext() 

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

Bunun bir iletişim ya da ne bulun ise emin değilim, ama tüm müşteriler için DataTable uygulama genelindeki kullanımları sahip olabileceği unutulmamalıdır - Böyle müşteri # 30 denemeden önce varsa kontrol etme gibi silmek için