the (textbox) LostFocus() routine is working on Opensuse (with Gambas
2.17) but not on Ubuntu (with Gambas 2.19)!
The same components of Gambas are loaded on both PCs!
gb, gb.db, gb.db.form, gb.form, gb.image, gb.net, gb.qt, gb.qt.ext,
gb.vb.
PUBLIC SUB tEponimia_LostFocus()
DIM rs33 AS Result
DIM i AS Integer
DIM htable AS Table
DIM Diktis AS Integer
ListBox1.Clear
MODMain.Connect()
IF db.Tables.Exist("Aplianikis") THEN
rs33 = MODMain.$Con.exec("select DISTINCT Eponimia from Aplianikis
where Eponimia LIKE '" & tEponimia.Text & "%'")
TRY PRINT rs33!Eponimia
IF ERROR THEN
'ListBox1.Add("")
'ListBox1.Clear
'tEponimia.Clear
'tEponimia.SetFocus
ELSE
FOR EACH rs33
ListBox1.Add(rs33!Eponimia)
NEXT
ENDIF
ELSE
MODMain.Connect()
htable = db.Tables.Add("Aplianikis")
htable.Fields.Add("aa", db.Serial, 10)
htable.Fields.Add("Eponimia", db.String, 40)
htable.Fields.Add("AFM", db.String, 18)
htable.Fields.Add("Hmerominia", db.Date)
htable.Fields.Add("Poson", db.Float)
htable.Fields.Add("Checkbox", gb.Boolean,, FALSE)
htable.PrimaryKey = ["aa"]
htable.Update
ENDIF
END
------------------------------------------------------------------------------
Download Intel® Parallel Studio Eval
Try the new software tools for yourself. Speed compiling, find bugs
proactively, and fine-tune applications for parallel performance.
See why Intel Parallel Studio got high marks during beta.
http://p.sf.net/sfu/intel-sw-dev
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
