Private Sub btnEliminaLotto_Click(sender As Object, e As EventArgs) Handles btnEliminaLotto.Click

        'Trova id selezionato con ChildRows
        propIdLottoMateriale = gridLottoMateriale.ChildRows(gridLottoMateriale.CurrentRow.Index).Cells(0).Value

        Dim result As DialogResult

        If Not (propIdLottoMateriale = Nothing) Then
            If gridLottoMateriale.SelectedRows.Count > 0 Then
                result = MessageBox.Show(" Sei sicuro di voler eliminare il Test Report N° : " & propIdLottoMateriale & " ? ", "Elimina test Report in Database", MessageBoxButtons.OKCancel)
                If result = DialogResult.Cancel Then
                    Exit Sub
                End If

                If result = Windows.Forms.DialogResult.OK Then
                    EliminaLottoMateriale(propIdLottoMateriale)

                    'Controllo se il filtro esiste ancora
                    If (gridLottoMateriale.IsInEditMode) Then
                        gridLottoMateriale.EndEdit()
                    End If

                    'Toglie il filtro
                    gridLottoMateriale.FilterDescriptors.Clear()

                    'PopolaGridLotto()
                    'Aggiorna il dataset binding con la grid
                    TblNumeroLottoMaterialeTableAdapter.Fill(DsNumeroLottoMateriale1.tblNumeroLottoMateriale)

                    'Riposiziona la griglia sulla riga dopo quella eliminata
                    gridLottoMateriale.CurrentRow = gridLottoMateriale.ChildRows(indexRigaPerAggiorna + 1)
                    gridLottoMateriale.CurrentRow.IsSelected = True

                Else
                        Exit Sub
                End If
            Else
                MessageBox.Show("Seleziona una riga !!")
            End If

        Else

        End If

    End Sub

    Public Function EliminaLottoMateriale(ByVal id As Integer)
        Dim deleteCommand As DbCommand = Nothing
        Dim rowsAffected As Integer
        Try
            deleteCommand = _db.GetStoredProcCommand("spDeleteQueryLotto")
            _db.AddInParameter(deleteCommand, "id", DbType.Int32, id)
            rowsAffected = _db.ExecuteNonQuery(deleteCommand)
        Catch ex As Exception
            MessageBox.Show("Errore EliminaLottoMateriale : " & ex.Message)
        End Try
        Return rowsAffected
    End Function

System::Void 
Form_Client::Form_Client_FormClosing(System::Object^  sender, System::Windows::Forms::FormClosingEventArgs^  e)
  {
    //-----------------------------------------------------------------------------------------------------------------------------
    try
    {
      //-- mdi closing already confirmed --------------------------------------------------------------------
      if (this->_ForceClosing == true)
      {
        e->Cancel = false;
        return;
      }
      //-- windows shutdown ---------------------------------------------------------------------------------
      else if (e->CloseReason == System::Windows::Forms::CloseReason::WindowsShutDown)  // not working
      {
        this->_ForceClosing = true;
      }
      //-- user single closing (ask if connected) -----------------------------------------------------------
      else if (e->CloseReason == System::Windows::Forms::CloseReason::UserClosing)
      {
        // ask if this child shall be closed
        if (Result != System::Windows::Forms::DialogResult::OK)
        {
          e->Cancel = true;
          return;
        }
      }
      //-- mdi parent closing initiated ---------------------------------------------------------------------
      else if (e->CloseReason == System::Windows::Forms::CloseReason::MdiFormClosing)
      {
        // ask if all childs shall be closed
        if (Result != System::Windows::Forms::DialogResult::Yes)
        {
          e->Cancel = true;
          return;
        }
        //-------------------------------------------------------------------------------
        this->_ForceClosing = true;
      }
      //-- unknown reason -> just close all -----------------------------------------------------------------
      else
      {
        this->_ForceClosing = true;
      }
    }
    //----------------------------------------------------------------------------------------------------------------------------
    catch (System::Exception^ ex)
    {
      System::Windows::Forms::MessageBox::Show( ex->ToString() ); 
    }
  }