将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