Public Sub caricadb
Dim DB_NAME As String ="dati.db"
If File.Exists(File.DirInternal,DB_NAME) Then
SQL1.Initialize(File.DirInternal,DB_NAME,False)
Else
File.Copy(File.DirAssets,DB_NAME,File.DirInternal,DB_NAME)
SQL1.Initialize(File.DirInternal,DB_NAME,False)
End If
Dim Cursor1 As Cursor
Cursor1 = SQL1.ExecQuery("SELECT * FROM IMPOSTAZIONI ORDER BY ID")
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
IMPOSTA.Add(Cursor1.GetString("DATO"))
Log("************************")
Log(Cursor1.GetString("ID"))
Log(Cursor1.GetString("DATO"))
Next
R0=IMPOSTA.Get(0)
R4=IMPOSTA.Get(4)
End Sub''''''''''''''''fino qui tutto ok'
Sub LEGGI
sia R0 o R4 VUOTE idem IMPOSTA.Get(0) e IMPOSTA.Get(4)
non voglio passarle alla sub leggi(uno as string , due as string)
perchè devono essere lette in tutte le pagine
R0 e R4 Public
IMPOSTA LIST Public
End sub