Παράδειγμα.

Σε μια φόρμα windows βάλε δυο DataGridView και ένα Button.

Ονόμασε τα DataGridView, DataGridView1 και DataGridView2 και ένα button με όνομα button1.

Οι CreateTable1() και CreateTable2() φτιάχνουν δυο tables που τα χρησιμοποιούμε ως DataSources στα DataGridViews για χάριν του παραδείγματος.

Στο click του Button ελέγχουμε το check και ενημερώνουμε το DataGridView2.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.DataGridView1.DataSource = CreateTable1()

Me.DataGridView2.DataSource = CreateTable2()

End Sub

Private Function CreateTable1() As DataTable

Dim tbl1 As New DataTable("Customers")

Dim colFName, colLastname, colSelected As DataColumn

'1

colFName = New DataColumn("FirstName")

colFName.DataType = Type.GetType("System.String")

'2

colLastname = New DataColumn("LastName")

colLastname.DataType = Type.GetType("System.String")

'3

colSelected = New DataColumn("Selected")

colSelected.DataType = Type.GetType("System.Boolean")

colSelected.DefaultValue = False

tbl1.Columns.Add(colFName)

tbl1.Columns.Add(colLastname)

tbl1.Columns.Add(colSelected)

Dim row As DataRow = tbl1.NewRow

row.Item("FirstName") = "Kostas"

row.Item("LastName") = "Karakostas"

tbl1.Rows.Add(row)

row = tbl1.NewRow

row.Item("FirstName") = "Mitsos"

row.Item("LastName") = "Karamitsos"

tbl1.Rows.Add(row)

row = tbl1.NewRow

row.Item("FirstName") = "Vakis"

row.Item("LastName") = "Karavakis"

tbl1.Rows.Add(row)

Return tbl1

End Function

Private Function CreateTable2() As DataTable

Dim tbl2 As New DataTable("CustomersSelected")

Dim colFName, colLastname As DataColumn

'1

colFName = New DataColumn("FirstName")

colFName.DataType = Type.GetType("System.String")

'2

colLastname = New DataColumn("LastName")

colLastname.DataType = Type.GetType("System.String")

tbl2.Columns.Add(colFName)

tbl2.Columns.Add(colLastname)

Return tbl2

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim tbl As DataTable = CType(DataGridView2.DataSource, DataTable)

tbl.Rows.Clear()

Dim NewRow As DataRow

For Each row As DataRow In CType(DataGridView1.DataSource, DataTable).Rows

If row.Item("Selected") = True Then

NewRow = tbl.NewRow

NewRow.Item("FirstName") = row.Item("FirstName")

NewRow.Item("LastName") = row.Item("LastName")

tbl.Rows.Add(NewRow)

End If

Next

Me.DataGridView2.DataSource = tbl

End Sub

Μπορείς και πιο τεμπέλικα αν είσαι fan των κουμπακίων, αν κάνεις databind και τα δύο σε δικό τους datasource με το ίδιο adapter και select function, και μετά κάνεις filter στο datasource του δεύτερου μόνο αυτά που έχουνε checked το checkbox σου.

---

Simple Photography

Προσοχή με το Viewstate. Μπορεί να μεγαλώσει και να μην το πάρεις χαμπάρι...

---

Simple Photography