Private Sub SaveItem_Click(sender As Object, e As EventArgs) Handles SaveItem.Click
If StudentiDataSet.HasChanges() Then
If newrec = True Then
IdTextBox.Text = My.Settings.ID
tempDt.Rows.Add(IdTextBox.Text, CognomeTextBox.Text, NomeTextBox.Text, NatoDateTimePicker.Text, IndirizzoTextBox.Text, ComuneTextBox.Text, CivicoTextBox.Text)
nrec = tempDt.Rows.Count
Dim risposta As DialogResult = MessageBox.Show(Me, "Confermi la scrittura di questo record?", "Avviso", MessageBoxButtons.YesNo)
If risposta = DialogResult.Yes Then
tempDt.AcceptChanges()
My.Settings.ID = My.Settings.ID + 1
My.Settings.Save()
UpdateDataSet(StudentiDataSet)
Else
tempDt.RejectChanges()
End If
Else
Dim risposta As DialogResult = MessageBox.Show(Me, "Confermi la/e modifica/che di questo record?", "Avviso", MessageBoxButtons.YesNo)
If risposta = DialogResult.Yes Then
tempDt.Rows.RemoveAt(indice - 1)
tempDt.Rows.Add(IdTextBox.Text, CognomeTextBox.Text, NomeTextBox.Text, NatoDateTimePicker.Text, IndirizzoTextBox.Text, ComuneTextBox.Text, CivicoTextBox.Text)
tempDt.AcceptChanges()
UpdateDataSet(StudentiDataSet)
End If
End If
End If
End Sub
Buongiorno. Ho questo codice,che dovrebbe rilevare le eventuali modifiche apportate al dataset(HasChanges).
Di fatto,però,HasChanges non cambia mai lo stato (sia in fase di inserimento che in fase di modifica o cancellazione) ed esce dalla sub.
C'è certamente un errore, ma non riesco ad intercettarlo.
Posso contate sul vostro aiuto anche questa volta?
Grazie.