ADD NEW partendo dal dataset

' esempio da http://www.homeandlearn.co.uk/net/nets12p10.html

' inserisce un nuovo record in un altra maniera, al posto di usare il databinding



'Lo stesso comando per creare un nuovo record

I = IdNew("Condomini")
'If NewCondominio(I) = True Then

' CondominiBindingSource.MoveLast()

'End If


Dim cb As New OleDb.OleDbCommandBuilder(CondominiDaPt)
Dim dsNewRow As DataRow

dsNewRow = MyDataSet.Tables("Condomini").NewRow()

dsNewRow.Item("Id") = I

MyDataSet.Tables("Condomini").Rows.Add(dsNewRow)

CondominiDaPt.Update(MyDataSet, "Condomini")

CondominiBindingSource.MoveFirst()
Dim BsPosizione As Integer = CondominiBindingSource.Find("ID", I)
CondominiBindingSource.Position = BsPosizione