sql = sql & " FROM (Appalti) WHERE (((Appalti.[IdCondominio]) In (SELECT [IdCondominio] FROM [Appalti] As Tmp GROUP BY [IdCondominio],[Indirizzo] HAVING Count(*)>1 And [Indirizzo] = [Appalti].[Indirizzo])))" sql = sql & " ORDER BY Appalti.[Indirizzo], Appalti.[IdCondominio];" 'Si scrive la query MyDataSet = New DataSet("Appalti") 'Si crea il dataset, un dataset puo' contenere piu' di una tabella al suo interno e le relazioni master/detail 'Si crea il DataAdapter (la spola...) ' oppure AppaltiDaPt = New OleDb.OleDbDataAdapter(sql, Dbazienda) 'AppaltiDaPt.SelectCommand.CommandText = "SELECT * FROM Appalti" AppaltiDaPt.Fill(MyDataSet, "Appalti") 'Nella seconda riga viene usato per riempire il dataset con l'istruzione SQL 'Si crea la BindingSource AppaltiBindingSource = New BindingSource() AppaltiBindingSource.DataSource = MyDataSet AppaltiBindingSource.DataMember = "Appalti" 'Si crea il DataTable per la gestione di ROW e per la visualizzazione del contenuto delle tabelle '************************************* DTable = MyDataSet.Tables.Item(0) '************************************* 'Che si collega al dataset che contiene la nostra tabella TextBox0.DataBindings.Add("text", AppaltiBindingSource, "id") TextBox1.DataBindings.Add("text", AppaltiBindingSource, "IdCondominio") TextBox2.DataBindings.Add("text", AppaltiBindingSource, "Indirizzo") CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", AppaltiBindingSource, "sostituzionePortiere", True)) CheckBox4.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", AppaltiBindingSource, "Pulizia", True)) CheckBox5.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", AppaltiBindingSource, "RitiroPosta", True)) CheckBox6.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", AppaltiBindingSource, "NoRitenutaDacconto", True)) DataGridView2.DataSource = AppaltiBindingSource 'DataGridView2.Columns(0).Visible = False DataGridView2.Columns(0).Width = 30 DataGridView2.Columns(1).Visible = False DataGridView2.Columns(2).Width = 210 DataGridView2.Columns(3).Width = 110 DataGridView2.Columns(4).Width = 30 DataGridView2.Columns(5).Width = 30 DataGridView2.Columns(6).Width = 30 DataGridView2.Columns(7).Width = 30 DataGridView2.Columns(8).Width = 30 DataGridView2.Columns(9).Width = 90 DataGridView2.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomRight DataGridView2.Columns(10).Width = 90 DataGridView2.Columns(11).Width = 90 |