I have a datagrid connected to a database with ADO .Net, when I execute the code it adds rows to the 2nd datagrid as the number of cells are in style beige, I want to add one row and the cells that in color beige (they meet the requirment and become backcolor beige, it is a date check code), it adds not 1 row and the selected cells but 1 row for each selected cell even if they are in the same row, I want 1 row for one row of the 1st datagridview, I know it is somewhere in the fro statments but cannot figure it out where.
code of creating rows in 2nd datagridview
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim c, t, d, g, h, i As Integer
Form2.DataGridView1.Columns.Clear()
For t = 0 To DataGridView1.Columns.Count - 1
Form2.DataGridView1.Columns.Add(DataGridView1.Columns(t).Clone())
Next
c = 0
d = 0
For c = 0 To DataGridView1.Rows.Count - 1
For d = 0 To DataGridView1.Rows(c).Cells.Count - 1
If DataGridView1.Rows(c).Cells(d).Style.BackColor = Color.Beige Then
Form2.DataGridView1.Rows.Add(Me.DataGridView1.Rows(c).Cells(0).Value, Me.DataGridView1.Rows(c).Cells(1).Value, Me.DataGridView1.Rows(c).Cells(2).Value, Me.DataGridView1.Rows(c).Cells(3).Value, Me.DataGridView1.Rows(c).Cells(4).Value, Me.DataGridView1.Rows(c).Cells(5).Value, Me.DataGridView1.Rows(c).Cells(6).Value, Me.DataGridView1.Rows(c).Cells(7).Value, Me.DataGridView1.Rows(c).Cells(8).Value, Me.DataGridView1.Rows(c).Cells(9).Value, Me.DataGridView1.Rows(c).Cells(10).Value, Me.DataGridView1.Rows(c).Cells(11).Value, Me.DataGridView1.Rows(c).Cells(12).Value, Me.DataGridView1.Rows(c).Cells(13).Value)
End If
Next
Next
end sub
and code for date check if nessecary:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dt As New Date
Dim i, g As New Int32
i = 0
g = 0
Dim workTable As DataTable = New DataTable("Customers")
For Each row As DataGridViewRow In DataGridView1.Rows
For c As Int32 = 1 To DataGridView1.ColumnCount - 1
If row.Cells(c).Value IsNot DBNull.Value Then
dt = Date.Parse(row.Cells(c).Value)
If (Date.Today >= (dt.AddMonths(-1))) And (Date.Today <= dt) Then
row.Cells(c).Style.BackColor = Color.Beige
i = i + 1
End If
End If
Next
Next
MessageBox.Show("ΥΠΑΡΧΟΥΝ : " + i.ToString + " ΕΓΓΡΑΦΕΣ ΣΤΑ ΑΥΤΟΚΙΝΗΤΑ", "ΗΜΕΡΟΜΗΝΙΑ EXPIRED")
end sub