BUONGIORNA A TUTTI IO HO IL SEGUENTE CODICE CHE NON AGGIORNA LA TABELLA POTETE AIUTARMI A RISOLVERLO IL PROBLEMA SI RIFERISCE A L CICLO FOR EACH
Codice:

codice:
Public Sub AggiornaRecord(ByRef ctrlAdd As UserModificaViaggio.UserModificaViaggio1, ByRef IDVIAGGIO As Integer, ByRef CheckDestinazione As Control)
        ConnParcoMacchine.ConnectionString = ParcoMacchineConnString
        sql = "SELECT * FROM VIAGGI;"
        Try
            ConnParcoMacchine.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        daParcoMacchine.SelectCommand = New OleDbCommand(sql, ConnParcoMacchine)
        dsParcoMacchine.Clear()
        daParcoMacchine.FillSchema(dsParcoMacchine, SchemaType.Source)
        daParcoMacchine.Fill(dsParcoMacchine, "VIAGGI")
        ConnParcoMacchine.Close()
        Dim cmdBuilderPosta As New OleDb.OleDbCommandBuilder(daParcoMacchine)
        cmdBuilderPosta.QuotePrefix = "["
        cmdBuilderPosta.QuoteSuffix = "]"
        daParcoMacchine.InsertCommand = cmdBuilderPosta.GetInsertCommand
        daParcoMacchine.UpdateCommand = cmdBuilderPosta.GetUpdateCommand
        Dim strFilter As String
        strFilter = "[IDVIAGGIO]=" & IDVIAGGIO
        Dim drPosta() As DataRow
        drPosta = dsParcoMacchine.Tables("VIAGGI").Select(strFilter)
        Dim myDr2 As DataRow
        Try
            For Each myDr2 In drPosta
                myDr2.Item("TARGA") = ctrlAdd.ComboBoxTarga1.Text
                myDr2.Item("KM ATTUALI") = ctrlAdd.TextBoxKMArrivo1.Text
                myDr2.Item("ORA PARTENZA") = ctrlAdd.TextBoxOraPartenza1.Text
                myDr2.Item("ORA ARRIVO") = ctrlAdd.TextBoxOraArrivo1.Text
                myDr2.Item("DATA") = ctrlAdd.TextBoxData1.Text
                myDr2.Item("DESTINAZIONE1") = ctrlAdd.ComboBoxDestinazione1.Text
                NumeroColonne()
                Dim i As Integer = 1
                Dim iControl As Integer = 2
                Dim ctrl As Control
                Dim sProva As String
                Dim sProva1 As String
                If iNumeroColonne > 12 Then
                    For Each ctrl In ctrlAdd.Controls
                        If ctrl.Name = "Destinazione" & i.ToString Then
                            sProva = ctrl.Text.ToString
                            sProva1 = "DESTINAZIONE" & iControl.ToString
                            myDr2.Item(sProva1) = ctrl.Text.ToString
                            iControl = iControl + 1
                            i = i + 1
                        End If
                    Next
                End If
            Next
            daParcoMacchine.Update(dsParcoMacchine, "VIAGGI")
        Catch ex As Exception
            MsgBox("errore", MsgBoxStyle.Critical, "errore")
        End Try
        dsParcoMacchine.Clear()
    End Sub