Grazie optime,
codice:
Private Sub cmdMese_Click(sender As Object, e As EventArgs) Handles cmdMese.Click
Dim MeseAttuale As Integer
Dim MeseCorso As Integer
Dim Indice As Double
Dim Codice As String
Dim DataOdierna As Date = Now
Try
Connessione.Open()
Dim Query As String = "SELECT * FROM Assegnazioni ORDER BY Articolo"
Dim Adattatore As New OleDbDataAdapter(Query, Connessione)
Adattatore.Fill(Mese)
Dim For01 As String
Dim For02 As String
Dim For03 As String
Dim For04 As String
Dim For05 As String
Dim For06 As String
Dim For07 As String
Dim For08 As String
Dim For09 As String
Dim For10 As String
Dim For11 As String
Dim For12 As String
Dim Articoli As Double = Mese.Rows.Count - 1
If Articoli > 0 Then
For Each row As DataRow In Mese.Rows
MeseAttuale = row("MeseAttuale").ToString()
Exit For
Next
MeseCorso = Month(DataOdierna)
If MeseAttuale = MeseCorso Then
MsgBox("Aggioramento assegnazioni già effewttuato", vbOKOnly)
Else
If MeseAttuale <> MeseCorso Then
For Each row As DataRow In Mese.Rows
Dim Query1 As String = "UPDATE Assegnazioni SET MeseAttuale=@MeseCorso, Fornitori01=@For01, Fornitori02=@For02, Fornitori03=@For03, Fornitori04=@For04, Fornitori05=@For05, Fornitori06=@For06, Fornitori07=@For07, Fornitori08=@For08, Fornitori09=@For09, Fornitori10=@For10, Fornitori11=@For11, Fornitori12=@For12 WHERE ID=@Indice"
Dim Comando As New OleDbCommand(Query1, Connessione)
Codice = row("Articolo")
Indice = row("ID")
For I = 1 To MeseCorso - MeseAttuale
row("Fornitori" & Format(MeseCorso - MeseAttuale + 1, "00")) = row("Fornitori" & Format(MeseCorso - MeseAttuale + 1, "00")) + row("Fornitori" & Format(I, "00"))
Next I
For I = MeseCorso - MeseAttuale + 1 To 12
J = I - (MeseCorso - MeseAttuale)
row("Fornitori" & Format(J, "00")) = row("Fornitori" & Format(I, "00"))
Next
For I = 12 - (MeseCorso - MeseAttuale) + 1 To 12
row("Fornitori" & Format(I, "00")) = 0
Next I
For01 = row("Fornitori01")
For02 = row("Fornitori02")
For03 = row("Fornitori03")
For04 = row("Fornitori04")
For05 = row("Fornitori05")
For06 = row("Fornitori06")
For07 = row("Fornitori07")
For08 = row("Fornitori08")
For09 = row("Fornitori09")
For10 = row("Fornitori10")
For11 = row("Fornitori11")
For12 = row("Fornitori12")
Comando.Parameters.AddWithValue("@ID", Indice)
Comando.Parameters.AddWithValue("@Articolo", Codice)
Comando.Parameters.AddWithValue("@MeseAttuale", MeseCorso)
Comando.Parameters.AddWithValue("@Fornitori01", For01)
Comando.Parameters.AddWithValue("@Fornitori02", For02)
Comando.Parameters.AddWithValue("@Fornitori03", For03)
Comando.Parameters.AddWithValue("@Fornitori04", For04)
Comando.Parameters.AddWithValue("@Fornitori05", For05)
Comando.Parameters.AddWithValue("@Fornitori06", For06)
Comando.Parameters.AddWithValue("@Fornitori07", For07)
Comando.Parameters.AddWithValue("@Fornitori08", For08)
Comando.Parameters.AddWithValue("@Fornitori09", For09)
Comando.Parameters.AddWithValue("@Fornitori10", For10)
Comando.Parameters.AddWithValue("@Fornitori11", For11)
Comando.Parameters.AddWithValue("@Fornitori12", For12)
Comando.ExecuteNonQuery()
Next
End If
End If
End If
Catch ex As Exception
MsgBox("Errore di connessione" & vbCrLf & ex.Message)
Connessione.Close()
End Try
Connessione.Close()
cmdMese.Visible = False
CaricaDati()
ImpostadgwAssegnazioni()
End Sub
UPDATE non mi aggiorna la tabella...
Perche, cosa sbaglio?
Grazie