PublicClass frmschede
'il row passato per la modifica
Dim rw As studiDataSet.CommercialistiRow = Nothing
''' <summary>
''' Serve per passare il row al form corrente.
''' </summary>
''' <value>datarow da modificare</value>
''' <remarks></remarks>
PublicWriteOnlyProperty myRow() As studiDataSet.CommercialistiRow
Set(ByVal value As StudiDataSet.CommercialistiRow)
Me.CommercialistiTableAdapter.Fill(Me.StudiDataSet.Commercialisti)
'se il row non e null, possiamo 
'proseguire al binding
IfNot value IsNothingThen
'pulizia bindings esistenti
'assegnazione valore alla variabile locale
rw = value
'creazione dei bindings
studio.DataBindings.Add(New Binding("Text", rw, "Studio", True, DataSourceUpdateMode.OnValidation, "DbNull"))
via.DataBindings.Add(New Binding("Text", rw, "Via", True, DataSourceUpdateMode.OnValidation, "DbNull"))
citta.DataBindings.Add(New Binding("Text", rw, "Citt…", True, DataSourceUpdateMode.OnValidation, "DbNull"))
provincia.DataBindings.Add(New Binding("Text", rw, "Provincia", True, DataSourceUpdateMode.OnValidation, "DbNull"))
cap.DataBindings.Add(New Binding("Text", rw, "Cap", True, DataSourceUpdateMode.OnValidation, "DbNull"))
telefono.DataBindings.Add(New Binding("Text", rw, "Telefono", True, DataSourceUpdateMode.OnValidation, "DbNull"))
fax.DataBindings.Add(New Binding("Text", rw, "Fax", True, DataSourceUpdateMode.OnValidation, "DbNull"))
cellulare.DataBindings.Add(New Binding("Text", rw, "Cellulare", True, DataSourceUpdateMode.OnValidation, "DbNull"))
email.DataBindings.Add(New Binding("Text", rw, "Email", True, DataSourceUpdateMode.OnValidation, "DbNull"))
prodotto.DataBindings.Add(New Binding("Text", rw, "Prodotto", True, DataSourceUpdateMode.OnValidation, "DbNull"))
versione.DataBindings.Add(New Binding("Text", rw, "Versione", True, DataSourceUpdateMode.OnValidation, "DbNull"))
dataaggiornamento.DataBindings.Add(New Binding("Text", rw, "DataAggiornamento", True, DataSourceUpdateMode.OnValidation, "DbNull"))
datacopiaredditi.DataBindings.Add(New Binding("Text", rw, "DataCopiaRedditi", True, DataSourceUpdateMode.OnValidation, "DbNull"))
annostampelaser.DataBindings.Add(New Binding("Text", rw, "AnnoStampeLaser", True, DataSourceUpdateMode.OnValidation, "DbNull"))
particolarita.DataBindings.Add(New Binding("Text", rw, "Particolarit…", True, DataSourceUpdateMode.OnValidation, "DbNull"))
EndIf
EndSet
EndProperty