ho visto che dato errore è generato da un sovracarico di memoria (tipo loop infinito).
Nel mio caso non riesco a capire perchè viene generato tale errore.
ho una public sub
PUBLIC SUB GridEU_DblClick()
DIM Pulsante1, Pulsante2 AS Button
ReForm = NEW Form AS "ReForm"
Pulsante1 = NEW Button(ReForm) AS "Pulsante1"
Pulsante2 = NEW Button(ReForm) AS "Pulsante2"
NewValore = NEW textBox(ReForm) AS "NewValore"
ho creato una sub che premuto il pulsante1 salva i dati in un database sqlite TUTTO OK
ho creato una sub che premuto ENTER quando il focus è su NewValore viene chiamata la sub pulsante1_Click. ERRORE segnale #11
PUBLIC SUB NewValore_KeyPress()
SELECT CASE Key.Code
CASE Key.Enter
Pulsante1_Click()
END SELECT
END
chi sa dirmi perchè?
PUBLIC SUB Pulsante1_Click()
DIM stringa AS String
SELECT CASE GridEU.Column
CASE 5
stringa = GridEU[cordX, 0].Text
hres = $hConn.Edit("principale", "id=" & stringa)
IF hres.Available = TRUE THEN
hres!importo = NewValore.Text
hres.Update
$hConn.Commit
$hConn.Close
ReForm.Close
MakeGridEU
ENDIF
END SELECT
END