19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
If TData.value <> "" And Elenco1.text <> "" And Importo.Value <> 0 And TQt.Text <> "" Then Connessione.Begin Risultato = Connessione.Create("AGGI") Risultato!aggio = Importo.Value Risultato!data = CDate(TData.value) Risultato!descrizione = Elenco1.Text Risultato!qt = TQt.Text Risultato.Update Connessione.Commit Elenco1.Clear Elenco1.List = MieFunzioni.PopolaCombo(connessione, "descrizione", "AGGI", True) Elenco1.Text = "" Endif