将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