'declarations
Dim mabase as SQL
Private LAmoygem As Label
Private SPfinditem As Spinner
'structure of the table
mabase.ExecNonQuery("CREATE TABLE table1 (id INTEGER PRIMARY KEY, date DATE , nbrgem BYTE, finditem STRING)")
'to calculate the average when a "filter" is applied :
Dim moygem As Double
moygem = mabase.ExecQuerySingleResult2("SELECT AVG(nbrgem) FROM table1 WHERE finditem = ? GROUP BY finditem", Array As String( SPfinditem.Selecteditem ))
LAmoygem.Text = moygem