Visual Basic

Private Sub Ricette_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            DS = New RicetteDataSet
            Me.IngedientiRicettaDataGridView.Visible = True
            If RiceID = 0 Then
                TaRicette.Fill(DS.Ricetta)
            Else
                TaRicette.FillBy1(DS.Ricetta, RiceID)
                RiceID = 0
            End If

            TaIngredienti.Fill(DS.Ingedienti)
            TaIngredientiRicetta.Fill(DS.IngedientiRicetta)
            TaUm.Fill(DS.Um)
            TaTipoCottura.Fill(DS.TipoCottura)
            TaCategoria.Fill(DS.Categorie)

            '------------------------------------------------------------------------
            IngredientiBindingSource.DataMember = "Ingedienti"
            IngredientiBindingSource.DataSource = DS

            TipoCotturaBindingSource.DataSource = DS
            TipoCotturaBindingSource.DataMember = "TipoCottura"

            CategorieBindingSource.DataMember = "Categorie"
            CategorieBindingSource.DataSource = DS

            UmBindingSource.DataSource = DS
            UmBindingSource.DataMember = "Um"
            '------------------------------------------------------------------------
            Me.RicettaBindingSource.DataSource = DS
            Me.RicettaBindingSource.DataMember = "Ricetta"
            Me.RicettaBindingSource.Position = pos
            'Me.RicettaBindingSource.MoveLast()

            IngredientiRicettaBindingSource.DataSource = RicettaBindingSource
            IngredientiRicettaBindingSource.DataMember = "FK_IngedientiRicetta_Ricetta"
            '------------------------------------------------------------------------


        Catch nhex As InvalidOperationException
            MsgBox(nhex.Message)
        Catch ex As Exception
            Err(ex, "Form Load" & Me.Name)
        End Try
    End Sub
	'----- Saving IngedientiRicettaDatagridView to IngedientiRicetta SQL Table-----
	
	Private Sub BtnSalvaIngredienti_Click(sender As Object, e As EventArgs) Handles BtnSalvaIngredienti.Click
        Try
            Validate()
            RicettaBindingSource.EndEdit()
            CategorieBindingSource.EndEdit()
            UmBindingSource.EndEdit()
            TipoCotturaBindingSource.EndEdit()
            IngredientiBindingSource.EndEdit()

            IngredientiRicettaBindingSource.EndEdit()
            TableAdapterManager.UpdateAll(DS)
            'TaIngredientiRicetta.Update(DS.IngedientiRicetta)

        Catch nhex As InvalidOperationException
            MsgBox(nhex.Message)

        Catch ex As Exception
            Err(ex, Name)
        End Try

    End Sub
	
'-----------------------------------------------------
'Adding new row to IngedientiRicettaDataGridView
'-----------------------------------------------------
    Private Sub IngedientiRicettaDataGridView_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles IngedientiRicettaDataGridView.DefaultValuesNeeded
        Try
            With e.Row
                .Cells("IngredienteRicettaQtaDataGridViewTextBoxColumn").Value = 0
                .Cells("IngredienteNome").Value = String.Empty
                .Cells("IngredienteRicettaNoteDataGridViewTextBoxColumn").Value = String.Empty
            End With

        Catch ex As Exception
            Err(ex, Name)
        End Try

    End Sub

PublicClientApp = PublicClientApplicationBuilder.Create(ClientId).WithB2CAuthority(AuthoritySignUpSignIn).WithLogging(AddressOf Log, LogLevel.Verbose, False).Build()

private static void Log(LogLevel level, string message, bool containsPii)
{
    string logs = $"{level} {message}";
    File.AppendAllText(System.Reflection.Assembly.GetExecutingAssembly().Location + ".msalLogs.txt", logs);
}

Private Shared Sub Log(ByVal level As LogLevel, ByVal message As String, ByVal containsPii As Boolean)
    Dim logs As String = $"{level} {message}"
    File.AppendAllText(System.Reflection.Assembly.GetExecutingAssembly().Location + ".msalLogs.txt", logs)
End Sub