将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