Private Sub btnEnregistre_Click
Main.Query = "UPDATE Operations Set IDCompte=?, Date=?, Numero=?, Tiers=?, Categorie=?, Note=?, Debit=?, Solde=?, Marquage=?, FitID=? WHERE ID = "&edtID.text
Main.SQL1.ExecNonQuery2(Main.Query, Array As String(edtIDCompte.Text,edtDate.text,edtNumero.Text,edtTiers.Text,edtCategorie.Text,edtNote.Text, edtMontant.Text, edtSolde.text,edtMarquage.Text,edtFitID.Text))
Dim row(11) As Object
row(0) = edtID.text
row(1) = edtIDCompte.text
row(2) = edtDate.text
row(3) = edtNumero.text
row(4) = edtTiers.text
row(5) = edtCategorie.text
row(6) = edtNote.text
row(7) = edtMontant.text
row(8) = edtSolde.text
row(9) = edtMarquage.text
row(10) = edtFitID.text
'Dim p As B4XView = clvOpe.GetPanel(vIndex)
'p.RemoveViewFromParent
'clvOpe.ReplaceAt(vIndex, p, 70dip,edtID.text)
'clvOpe.RemoveAt(vIndex)
'clvOpe.InsertAt(vIndex, CreateListItem(row, 600dip, 70dip),edtID.text)
clvOpe.ReplaceAt(vIndex,CreateListItem(row, 600dip, 70dip), 70dip,edtID.text)
'clvOpe.Add(CreateListItem(row, 600dip, 70dip),edtID.text)
Sleep(10)
If B4XSwitch1.Value = True Then ChargeOperations
End Sub