RawFilter_Integer_And_String_VB_NET

Imports System.Text.RegularExpressions

Public Class Form1
    Dim table As New DataTable
    Dim dtable As DataTable
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim text As String = TextBox1.Text
        Dim bool As Boolean = Regex.IsMatch(text, "\d+")
        If text = String.Empty Then
            dtable.DefaultView.RowFilter = String.Empty
        Else
            If bool = True Then
                Dim id1 As Integer = Convert.ToInt32(text)
                dtable.DefaultView.RowFilter = "ID =" & id1
            Else
                dtable.DefaultView.RowFilter = "Name like '%" & text & "%' OR Room like '%" & text & "%' OR Chaine like '%" & text & "%'"
            End If
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        table.Columns.AddRange({New DataColumn With {.ColumnName = "ID", .AutoIncrement = True, .AutoIncrementSeed = 1, .AutoIncrementStep = 1},
                                New DataColumn("Name"), New DataColumn("Room"), New DataColumn("Chaine")})

        Dim dr As DataRow = table.NewRow
        dr(1) = "kilya"
        dr(2) = "3"
        dr(3) = "456464"
        table.Rows.Add(dr)
        Dim dr1 As DataRow = table.NewRow
        dr1(1) = "Hand"
        dr1(2) = "4"
        dr1(3) = "2144546"
        table.Rows.Add(dr1)

        Dim dr2 As DataRow = table.NewRow
        dr2(1) = "test"
        table.Rows.Add(dr2)

        Dim dr3 As DataRow = table.NewRow
        dr3(1) = "dfdfd"
        dr3(2) = "2"
        dr3(3) = "ddfd"
        table.Rows.Add(dr3)

        DataGridView1.DataSource = table
        dtable = table

    End Sub
End Class