Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement