Torna al Thread
Private Sub CmdSalva_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSalva.Click
Try
Dim conferma As String = MsgBox("Confermare le modifiche apportate alla registrazione ? ", MsgBoxStyle.Information + MsgBoxStyle.YesNo)
If conferma = vbYes Then
MBindingRegistro.EndCurrentEdit()
MBindingProvvedimenti.EndCurrentEdit()
MBindingCancellazioni.EndCurrentEdit()
DapRegistro.Update(DsRegistro, "Registro")
DapProvvedimenti.Update(DsRegistro, "Provvedimenti Disciplinari")
DapCancellazioni.Update(DsRegistro, "Storico Cancellazioni")
End If
Catch ex As Exception
ErrorLog(ex)
End Try
End Sub