[Gambas-user] LostFocus() not working on ubuntu !
Vassilis K
vkan53 at ...2300...
Fri Mar 12 21:56:57 CET 2010
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
More information about the User
mailing list