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 padre As DataColumn = ds.Tables("cc").Columns("numero_cc")
Dim figlio As DataColumn = ds.Tables("operazioni").Columns("id_cc")
Dim relCorrentisti As DataRelation
relCorrentisti = New DataRelation("RelCorrentisti", padre, figlio)
' 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", bsOP, "ID"))
Id_ccTextBox.DataBindings.Add(New Binding("text", bsOP, "id_cc"))
Data.DataBindings.Add(New Binding("text", bsOP, "data"))
Tipo_operazioneTextBox.DataBindings.Add(New Binding("text", bsOP, "tipo_operazione"))
ImportoTextBox.DataBindings.Add(New Binding("text", bsOP, "importo"))
'DATAGRID
DGV.DataSource = bsCC
'NAVIGATOR
BindingNavigator1.BindingSource = bsOP
BindingNavigator2.BindingSource = bsCC
End Sub
End Class
Ho un form che contiene un datagridview (che espone un elenco di nominativi) ed una serie di textbox che contengono delle operazioni contabili effettuate dai predetti nominativi. Le due tabelle sono relazionate in un rapporto uno a molti e quindi quando seleziono un nominativo nella DGV, le textbox dovrebbero restituirmi i solo i records della relazione.
Nel mio codice c'è quancosa che non va e sono quindi a richiedere il vostro aiuto, perchè devo affronate simili tematiche anche con altri forms. Grazie.
(con il tanto criticato wizard avrei già risolto, ma voglio resistere e tentare questa modalità programmatica).