Seleziona ROW griglia 1 e passa a ROW griglia 2

da FrmCambiaNumFatturazione progetto Amministrazione


If DataGridView2.Visible = False Then
VisualizzaDuplicati.Text = "Visualizza Fatture"
DataGridView1.Visible = False
DataGridView2.Visible = True

Stringa = "SELECT Fatturazione.id, Fatturazione.FatturaNumero, Fatturazione.Data, Fatturazione.Gestione, Fatturazione.Mese, Fatturazione.Indirizzo, Fatturazione.Imponibile, Fatturazione.Totale "
Stringa = Stringa & " FROM(Fatturazione)"
Stringa = Stringa & " WHERE (((Fatturazione.Gestione) In (SELECT [Gestione] FROM [Fatturazione] As Tmp where Gestione = " & Gestione & " GROUP BY [Gestione],[Data],[FatturaNumero] HAVING Count(*)>1 And [Data] = [Fatturazione].[Data] And [FatturaNumero] = [Fatturazione].[FatturaNumero])))"
Stringa = Stringa & " ORDER BY Fatturazione.Gestione, Fatturazione.Data, Fatturazione.FatturaNumero;"
Dim DataTabl As New DataTable

Dim cmd As New OleDbCommand(Stringa, Dbazienda)
Dim dr As OleDbDataReader = cmd.ExecuteReader
DataTabl.Clear()
DataTabl.Load(dr)
dr.Close()
DataGridView2.DataSource = DataTabl
DataGridView2.AutoResizeColumns()


Else
VisualizzaDuplicati.Text = "Visualizza Duplicati"
DataGridView1.Visible = True
DataGridView2.Visible = False

End If