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
Visualizza post
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.
ciao, forse non mi sono spiegato.. 
. Praticamnete il codice mi restituisce 0,01 se scrivo 1 all'evento lostfocus() se inserisco 123 mi restituisce 1,23 se inserisco 1500 mi resitituisce 15,00 e cosi via, e potrebbe andare bene. Mi piacerebbe che ogni volta che digito un numero in automatico mi iserisca la virgola, ovvero considerando il valore di partenza 0,00 se inserisco 1, mi visualizza 0,01 se aggiungo 2 mi visualizza 0,12 se aggiungo 3 mi viasualizza 1,23 ovvero il dato inserito si sposta nella textbox da destra verso sinistra considerando le ultime due cifre a sinistra centesimi. Un po' come avviene nelle bilance elettroniche peso/prezzo o registratori di cassa.
Public Sub TextBox1_LostFocus()
Dim a As Float
a = Val(TextBox1.Text) / 100
TextBox1.text = Format$(a, "0.#0")
TextBox2.Text = Val(TextBox1.Text)
End
Dim valore As String
valore = InputBox("AAAAAA", "BBBBBBB") 'inserimento dato
FrmSoci.DataSoci.Filter = DB.Subst("pippo LIKE &1", valore)
Public Sub Button4_Click()
Dim db_anagrafica As New Connection
Dim rs_soci As Result
Dim sql As String
Dim codice As Integer
With db_anagrafica
.Type = "sqlite3"
.Host = Application.Path
.Name = "anagrafica"
.Open
End With
rs_soci = db_anagrafica.Exec("SELECT * FROM soci") ' query di selezione
rs_soci.MoveLast ' ultimo record
Label10.text = rs_soci!idsoci ' leggo il valore
End
Dim filepws As File
filepws = Open Application.Path & "/miofile.dat" For Create 'per creare file
Print #filepws, TextBox2.Text 'metodo print per scrivere nel file appena creato
Close #filepws
Dim fileurl As File
Dim dato As String
ListBox1.Clear
fileurl = Open Application.Path & "/miofile.dat" For Input
While Not Eof(fileurl)
Line Input #fileurl, dato
ListBox1.Add(dato)
Wend
Close #fileurl
Dim fileurl As File
fileurl = Open Application.Path & "/link.dat" For Append ' aggiungere una stringa
Print #fileurl, TextBox1.Text
Close #fileurl
Public valore As String
Public Sub GridView1_KeyPress()
Dim nomedb As String
Dim rscomuni As Result
Dim aprodb As New Connection
Dim sql As String
Dim iRow As String
Dim i As Integer
valore = valore & Key.Text ' aggiungo una lettera per volta
For i = 0 To GridView1.Rows.Count - 1
If GridView1[i, 0].Text Like valore Then
Label9.text = "Trovato " & valore & " al record n° " & i 'verifico se mi ha trovato il record
With GridView1
.MoveTo(i, 0)
.ShowCursor = True
End With
Endif
Next
If Key.code = Key.Return Then
nomedb = "Comuni"
With aprodb
.Type = "sqlite3"
.Host = Application.Path
End With
aprodb.Name = nomedb
aprodb.Open
iRow = GridView1.Row ' imposto iRow con il numero riga che ho cliccato
sql = "SELECT * FROM Comuni ORDER BY Comune" ' creo stringa per la query, seleziono tutti i record di rubrica
rscomuni = aprodb.Exec(sql) ' eseguo la query
If iRow <> -1 Then ' se il numero riga è diverso da -1 (cioè nullo) continuo
rscomuni.MoveTo(iRow) 'mi sposto nel record uguale al numero cliccato
TextBox5.Text = rscomuni!Comune ' riepio le caselle
TextBox6.Text = rscomuni!CAP
TextBox7.Text = rscomuni!SiglaProv
Endif
Catch
Message.Error(Error.Text)
Endif
End
Public Sub GridView1_KeyPress()
Dim i As Integer
Dim valore As String
valore = Key.Text
For i = 0 To GridView1.Rows.Count - 1
If GridView1[i, 0].Text Like valore & "*" Then
Label9.text = "Trovato " & valore & " al record n° " & i 'verifico se mi ha trovato il record
With GridView1
.MoveTo(i, 0)
.ShowCursor = True
End With
GridView1.SetFocus
Endif
Next
End
Dim i As Integer
Dim valore As String
valore = UCase$(InputBox("scrivi comune ", "prova input"))
If valore = Null Then Return
For i = 0 To GridView1.Rows.Count - 1
If GridView1[i, 0].Text Like valore & "*" Then
Label9.text = "Trovato " & valore & "al record n° " & i 'verifico se mi ha trovato il record
With GridView1
.MoveTo(i, 0)
.ShowCursor = True
End With
GridView1.SetFocus
Endif
Next
Dim i As Integer
Dim valore As String
valore = InputBox("scrivi comune ", "prova input")
If valore = Null Then Return
For i = 0 To GridView1.Rows.Count - 1
If GridView1[i, 0].Text = valore Then
Label9.text = "Trovato " & valore 'verifico se mi ha trovato il record
Endif
Next
Dim i As Integer
Dim i As Integer
For i = 0 To GridView1.Rows.Count - 1
If GridView1[i, 0].Text = Variabile Then
Label9.text = "Trovato " & Variabile 'verifico se mi ha trovato il record
Endif
Next
Next