Torna al Thread

Try ' controllo se ci sono iscritti per continuare con l'operazione If Me.Registro_iscrittiBindingSource.Count > 0 Then 'chiedo conferma dell'operazione Dim result As DialogResult result = MessageBox.Show("Annullare la domanda di cancellazione ?", "Controllo applicazione", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False) 'Se si proseguo If result = Windows.Forms.DialogResult.Yes Then 'annullando la domanda di cancellazione setto il checked del DB a false perche il campo non è editabile Domanda_di_cancellazioneCheckBox.Checked = False 'Annullando la domanda di cancellazione devo settare la data a NULL perche il campo non è editabile Data_domanda_cancellazioneTextBox.Text = "" 'Annullando la domanda di cancellazione devo settare l'operatore che ha effettuato la domanda a NULL perche il campo non è editabile Operatore_domanda_cancellazioneTextBox.Text = "" 'Termino la modifica dei dati Me.Registro_iscrittiBindingSource.EndEdit() 'Effettuo l'aggiornamento al DB Me.Registro_iscrittiTableAdapter.Update(Me.AlboDataSet.Registro_iscritti) 'Riattivo tutti i controlli Panel1.Enabled = True Panel2.Enabled = False Registro_iscrittiDataGridView.Enabled = True End If End If Catch ex As Exception MessageBox.Show("Errore : " & ex.Message, "Controllo errori", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly, False) Application.Exit() End Try
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5