[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