01.Public Class Form1
02. Dim ds As New DataSet
03. Dim bndSourceGrid As New BindingSource()
04. Dim db As New DataClasses1DataContext()
05.
06. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
07. Dim CS = From c In db.TblCustomers Order By c.IDCustomers
08. Select New With {c.IDCustomers, c.NameCustomers}
09.
10.
11.
12. dgvProducts.DataSource = CS.ToList
13. End Sub
14.
15. Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvProducts.CellContentClick
16.
17. End Sub
18.
19. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
20. LoadProducts()
21. End Sub
22.
23. Private Sub LoadProducts()
24.
25.
26.
27.
28. Dim CS = From c In db.TblCustomers
29. Where c.NameCustomers Like "'%" & TextBox1.Text.Trim() & "%'"
30. Select New With {c.IDCustomers, c.NameCustomers}
31.
32.
33.
34.
35.
36.
37.
38.
39. dgvProducts.DataSource = CS
40.
41.
42. dgvProducts.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
43. dgvProducts.AllowUserToResizeColumns = True
44. dgvProducts.Refresh()
45.
46.
47. End Sub
48.
49.
50.
51.End Class
