将DataTable中执行Select(\"条件\")后的结果显示在DataGridView

  '用于接收查找结果的DataRow
        Dim drSearch() As DataRow
        drSearch = dt.Select("ccode='" & TextBox1.Text & "'")
        If drSearch.Length = 0 Then
            MsgBox("没有符合的记录")
        Else
            MsgBox("找到个" & drSearch.Length & "记录")
        End If
        '创建一个新的DataTable来接收查找结果
        Dim dtNew As DataTable = New DataTable
        '将之前的DataTable结构复制到新的DataTable
        dtNew = dt.Clone
        Dim i As Integer
        '将查找结果逐条添加到DataTable
        For i = 0 To drSearch.Length - 1
            dtNew.ImportRow(drSearch(i))
        Next
        '设置显示
        DataGridView1.DataSource = dtNew
    End Sub