01.
Dim
cls
As
New
MyData
02.
Dim
dv
As
DataView
03.
Dim
dt
As
DataTable = cls.GetDataTable(
"select productid,productname "
& _
04.
" from products order by productname"
)
05.
dv = dt.DefaultView
06.
Dim
A1
As
New
AutoCompleteStringCollection
07.
For
Each
drv
As
DataRowView
In
dv
08.
A1.Add(drv(
"productname"
))
09.
Next
10.
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
11.
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
12.
TextBox1.AutoCompleteCustomSource = A1