Torna al Thread

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Popolo la collection Dim d1 As New Dato d1.Codice = 123 d1.Descrizione = "Descrizione 123" d1.Altro = "Altro 123" Dim d2 As New Dato d2.Codice = 456 d2.Descrizione = "Descrizione 456" d2.Altro = "Altro 456" Dim ld As New List(Of Dato) ld.Add(d1) ld.Add(d2) 'Creo il BindingSource Dim dbs As New BindingSource dbs.DataSource = ld 'Popolo i controlli dgv1.DataSource = dbs lb1.DataSource = dbs End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5