请教怎样把选中的数据放到DataGridView2

请问怎样把选中的数据放到DataGridView2
请问怎样用VB.NET把选中的数据放到DataGridView2.
我从网上抄了一段代码，请问怎样把 布尔值 为真的数据全部复制到DataGridView2.

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable
        Dim dr As DataRow
        Dim i As Integer

        '创建数据表
        dt = New DataTable
        dt.Columns.Add(New DataColumn("布尔值", GetType(Boolean)))
        dt.Columns.Add(New DataColumn("整数值", GetType(Integer)))
        dt.Columns.Add(New DataColumn("字符串值", GetType(String)))
     

        '生成一些行，并在其中放置一些示例数据
        For i = 1 To 9
            dr = dt.NewRow()
            If (i Mod 2 <> 0) Then
                dr(0) = True
            Else
                dr(0) = False
            End If
            dr(1) = i
            dr(2) = "项 " + i.ToString()
            '向数据表中添加行
            dt.Rows.Add(dr)
        Next
        DataGridView1.DataSource = dt
    End Sub
End Class

------解决思路----------------------

dt.Select("布尔值=1");
dt.Select("布尔值=true");

不知道是应该用1呢，还是用true
------解决思路----------------------
把数据复制到新的DataTable中再绑定。

        Dim dt2 As DataTable = dt.Clone()
        For Each dr In dt.Select("布尔值=true")
            dt2.ImportRow(dr)
        Next
        DataGridView2.DataSource = dt2