使用textbox VB.net在Datagridview中搜索

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim keyword As String = TextBox1.Text.Trim().ToLower() ' 获取搜索关键字并转换为小写
    For Each row As DataGridViewRow In DataGridView1.Rows
        If row.IsNewRow Then Continue For ' 跳过新行
        Dim found As Boolean = False
        For Each cell As DataGridViewCell In row.Cells
            If cell.Value IsNot Nothing AndAlso cell.Value.ToString().ToLower().Contains(keyword) Then
                found = True
                Exit For
            End If
        Next
        row.Visible = found ' 根据搜索结果显示或隐藏行
    Next
End Sub