1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Imports System.Linq
Imports System.Collections.Generic
Imports System.Data.SqlClient
Public Class Form1
Private RowCount As Integer
Private Function GetData() As IEnumerable
Dim Datacontext As New NorthwindDataContext
Dim Filtered = Datacontext.Customers.Where(Function(Cust) _
Cust.ContactName.Contains(ComboBox1.SelectedText))
Return Filtered
End Function
Private Sub LoadCustomers()
ComboBox1.DisplayMember = "ContactName"
ComboBox1.DataSource = GetData()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
LoadCustomers()
End Sub
End Class |