Public Sub GridView1_Click()
Dim rssoci As Result
Dim sql As String
Dim iRow As String

Dim id As Integer
Mod_conn.db_apro

iRow = GridView1.Row

sql = "SELECT * FROM soci" ' ordino la griglia
  rssoci = Mod_Conn.$conn.Exec(sql)
 
    If iRow <> -1 Then
            
            id = GridView1[iRow, 0].Text
         
            rssoci.MoveTo(id - 1)
            TextBox1.Text = rssoci[0] ' idsoci
            label1.Text = rssoci[2] 'nome
            label2.text = rssoci[3] 'tipo
            label3.Text = rssoci[4] 'telefono
            label4.Text = rssoci[5] 'cellulare
            label5.Text = rssoci[6] 'mail
            label6.Text = rssoci[7] 'titolo
    
Endif

  Mod_Conn.$conn.Close
  grid_quote
End

Public Sub grid_quote()
Dim rsquote As Result
Dim sql As String
Dim i As Integer
 
 GridView2.Clear 'pulisce griglia
 Mod_Conn.db_apro 
  
  sql = "SELECT * FROM quote WHERE idsoci = '" & TextBox1.Text & "' " 
  rsquote = Mod_Conn.$conn.Exec(sql)
   
     If rsquote.Available = True Then    ' controlla se la query ha dato dei risultati in caso affermativo procede alla visualizzazione
                                            'altrimenti visualizza messaggio di errore
                GridView2.Mode = Select.multiple
                
                GridView2.Columns.Count = 2              'imposta il numero di colonne della GridView1
                GridView2.Rows.Count = rsquote.Count         'imposta il numero di record in base al numero di risultati presenti
                i = 0
                
               
                
                For Each rsquote                                   'inizio del ciclo
                  
                  GridView2[i, 0].Text = rsquote!Anno
                  GridView2[i, 1].Text = Format$(rsquote!Importo, "$$0.#0")                'scrime il 1° valore nella griglia
                 
                 
                  Inc i          'aumenta di uno la variabile i in tal modo al prossimo ciclo si scrivera il record sucessivo
                  
                Next
     Else                                        ' nel caso hres non contenga risultati
                  GridView2.Columns.Count = 1
                  GridView2.Rows.Count = 1
                  GridView2[0, 0].Text = "Nessun dato"  'viene visualizzata la scritta "nessun dato"
          
     Endif
   Mod_Conn.$conn.Close
End