Public Class Form1
Dim tempCC As DataTable
Dim tempOperazioni As DataTable
Dim query As String
Dim ds As DataSet
Private Sub cc2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ClsCC.connessione()
ds = New DataSet
query = "SELECT ID,cognome, nome, numero_cc FROM cc order by cognome,nome"
tempCC = ClsCC.tabella(query, "cc")
ds.Tables.Add(tempCC)
query = "SELECT id,id_cc,data,tipo_operazione,importo FROM operazioni ORDER BY data DESC"
tempOperazioni = ClsCC.tabella(query, "operazioni")
ds.Tables.Add(tempOperazioni)
'creamo la relazione tra le due tabelle
Dim parentColumn As DataColumn = ds.Tables("cc").Columns("numero_cc")
Dim childColumn As DataColumn = ds.Tables("operazioni").Columns("id_cc")
Dim relCorrentisti As DataRelation
relCorrentisti = New DataRelation("RelCorrentisti", parentColumn, childColumn)
' aggiungiamo la relazione al dataset
ds.Relations.Add(relCorrentisti)
'Binding
Dim bsCC As New BindingSource
bsCC.DataSource = tempCC
Dim bsOP As New BindingSource
bsOP.DataSource = tempOperazioni
'Textboxes
IDTextBox.DataBindings.Add(New Binding("text", tempOperazioni, "ID"))
Id_ccTextBox.DataBindings.Add(New Binding("text", tempOperazioni, "id_cc"))
Data.DataBindings.Add(New Binding("text", tempOperazioni, "data"))
Tipo_operazioneTextBox.DataBindings.Add(New Binding("text", tempOperazioni, "tipo_operazione"))
ImportoTextBox.DataBindings.Add(New Binding("text", tempOperazioni, "importo"))
'DATAGRID
DGV.DataSource = bsCC
'NAVIGATOR
BindingNavigator1.BindingSource = bsOP
BindingNavigator2.BindingSource = bsCC
End Sub
End Class
Ho scritto questo codice,che mi restituisce dei dati in una serie di textbox e in un datagridview.
Ora, mentre la bindingnavigator connessa al DGV funziona normalmente, quella relativa alle textbox è bloccata sul primo record.
Non riesco a far funzionare lo spostamento tra i records.
Qualcuno può aiutarmi?Grazie.