Sub Make_Grid
Dim Sql1 as SQL
SQL1.Initialize(File.DirInternal,"clienti.db",True)
Dim Conto As String
Dim Griglia As xnGrid
Dim Tabella(3) As xnGridCol
Griglia.Initialize("eventoT")
Tabella(0).Initialize("Codice","Codice",20%x)
Tabella(1).Initialize("Nominativo","Ragsoc",50%x)
Tabella(2).Initialize2("Saldo","Saldo",30%x,Gravity.RIGHT)
'''' 20%x+50%+30x%=100%x ' ;)
Griglia.AppendCol(Tabella(0))
Griglia.AppendCol(Tabella(1))
Griglia.AppendCol(Tabella(2))
Dim CURSORE As Cursor
Dim text As String
Dim Codcli As String
Dim Ragsoc As String
Dim Saldo As String
text="SELECT * FROM CLIENT ORDER BY RAGSOC ASC"
CURSORE=Main.SQL1.ExecQuery(text)
For I=0 To CURSORE.RowCount-1
CURSORE.Position=I
Codcli=CURSORE.GetString("CODCLI")
Ragsoc=CURSORE.GetString("RAGSOC")
Saldo=CURSORE.GetString("SALDO")
Griglia.Appendrow(Array As String(Codcli,Ragsoc,Saldo))
Next
Griglia.HeaderTextSize = 15
Griglia.RowTextSize = 15
Griglia.RowHeight = 60dip
Activity.AddView (Griglia , 0 , 0 , 100%x , 100%y)
Griglia.GridCreate2(False,True)
End Sub
Sub eventoT_Select
Dim a1 As Int
a1=Griglia.RowSelected
Conto=Griglia.GetValue(a1,0)
msgbox(Conto,"Your Choice")
''' StartActivity("vidsch"):' show detail of account
End Sub