[Gambas-user] strang !!! (bug maibe)

[Daniel]

hi all
il you put this code in one button, the first time you click no problem 
and the second time and after
"Type mismatch: wanted integer, got      instead"
i tink the problem com from the { htable.primarykey = ["id"] }
 
  DIM hTable AS Table
 
  IF con1.Tables.Exist("ZOZO") THEN
    con1.Tables.Remove("ZOZO")
  ELSE
    PRINT "No Table ZOZO"
  ENDIF

  hTable = Con1.Tables.Add("ZOZO")

  hTable.Fields.Add("id", gb.Integer)
  hTable.Fields.Add("firstname", gb.String, 16)
  hTable.Fields.Add("name", gb.String, 32)
  hTable.Fields.Add("birth", gb.Date)
  hTable.Fields.Add("actived", gb.Boolean)
  hTable.Fields.Add("salary", gb.Float)

  hTable.PrimaryKey = ["id"]

  hTable.Update

daniel