Private hTable As TableView
Private hText As TextBox

Public Sub Form_Open()
Me.Arrangement = Arrange.Fill
  Me.Margin = True
  hText = New TextBox(Me) As "TextBox1"
  hText.Visible = False
  hTable = New TableView(Me) As "TableView1"
  With hTable
    .Header = 3
    .Columns.Count = 3
    .Rows.count = 10
    .Columns[0].Text = "NORMALE"
    .Columns[1].Text = "NUMERO"
    .Columns[2].Text = "MAIUSCOLO"
  End With
End

Public Sub TableView1_Click()
 hTable.EditWith(hText) 
End

Public Sub TableView1_Save(Row As Integer, Column As Integer, Value As String)
 hTable[row, column].text = value
hTable[Row, Column].WordWrap = True
  hTable.Rows[Row].Height = -1 'regola in automatico altezza cella
End

Public Sub TextBox1_Change()
  If hTable.column = 1 Then 
   If hText.text > "" Then
    hText.text = Format(Replace(hText.Text, ",", Null) / 100, "0.00") ' virgola in automatico inserimento euro
   Endif  
  Else If hTable.Column = 2 Then 
    hText.Text = String.UCase(hText.Text)
  Endif
  
End

Public Sub TextBox1_keypress()
  If hTable.Column = 1 Then 
    mod_set.Numeri
  Endif
  
End
'modulo mod_set

Public Function Numeri()
'solo numeri 
 If Key.Code >= 48 And Key.Code <= 57 Then
   Else If key.Code = key.BackSpace Then 
   Else If key.Code = key.Delete Then
   Else If Key.Code = Key.Left Then
   Else If Key.code = Key.Right Then
   Else If Key.Code = Key.Tab Then  
    Else 
      Stop Event
  End If
 End  

Valuebox1.Value = Format(Date, "mm/01/yyyy")

Dim MyRS As Result
Dim sql As String 
  ComboBox1.Clear  

           sql = "SELECT DISTINCT nome FROM rubrica ORDER BY nome ASC" 
           MyRS = MODMain.$conn.Exec(sql) 
    
          If MyRS.Available = True Then    
        
                For Each MyRS                                 
                 
                  ComboBox1.Add(MyRS!nome) 
                  
                Next
          Else                               
              
                  ComboBox1.Text = "Nessun dato" 
          Endif 
  Catch  
  Message.Error(Error.Text)   

Public Sub TextBox1_Change()
If TextBox1.text > "" Then
TextBox1.text = Format(Replace(TextBox1.Text, ",", Null) / 100, "0.00") 
Endif  
End

Public Sub Button17_Click()
Dim nometab As Result
Dim sql As String
Dim i As Integer
Mod_Open.$conn.Close
ListBox4.Clear
Mod_Open.db_clienti 'connessione al db'

sql = "SELECT name FROM sqlite_master WHERE type = 'table'" 'è possibile ottenere l'accesso a nomi di tabella e indice facendo un SELECT su una tabella speciale denominata "sqlite_master"'
 nometab = Mod_Open.$conn.Exec(sql, Null)

For i = 0 To nometab.Max ' ciclo per scrivere i nomi delle tabelle nella listbox'
  nometab.MoveTo(i)
  ListBox4.Add(nometab[0])
Next
Mod_Open.$conn.Close

End

Public Sub open_fileanno()
Dim nometab As Result
Dim sql As String
Dim i As Integer

Mod_Open.db_clienti ' connessione al db'
 
 sql = "SELECT name FROM sqlite_master WHERE type = 'table' AND name LIKE '2%'" 'è possibile ottenere l'accesso a nomi di tabella e indice facendo un SELECT su una tabella speciale denominata "sqlite_master" con LIKE puoi filtrare le tabelle'
 nometab = Mod_Open.$conn.Exec(sql, Null)

For i = 0 To nometab.Max ' ciclo per scrivere i nomi delle tabelle nella listbox filtrati con LIKE'

  nometab.MoveTo(i)
  ListBox3.Add(nometab[0])
Next

Mod_Open.$conn.Close

End