31
Domande tecniche / Re:Corretta sintassi
« il: 24 Settembre 2019, 15:09:08 »
Grazie.
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
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
Public Sub txtImporto_Change()
Dim s As String
s = txtImporto.Text
If Len(s) > 0 Then
If Not IsNumber(s) Then
txtImporto.Text = ""
f.suona("chord.wav")
Endif
Endif
End
Dim s As String
s = ListStampanti.Current.Text
ListView1[j + 1]
ListView1[ob.Row + 1]
Dim IdMax As Variant
res = $Con.Exec("SELECT id FROM clienti order by id desc limit 1")
idMax = res!id
idMax = idMax + 1 'incrementa di 1 il valore massimo letto colonna id
'---------------------------------------------------------------------------------
$Con.Begin
res = $Con.Create("clienti")
If res.Available Then
res!id = idMax 'per l'incremento
res!cognome = txtCognome.Text
res!nome = txtNome.Text