14-03-15, 11:03 PM
شكرا لك اخى ameerah
لقد توصلت الى كود
نجح والحمد لله
ها هو الكود للاستفادة
Con.Open()
Ds = New DataSet
tables = Ds.Tables
da = New OleDbDataAdapter("SELECT itemname from item", Con)
da.Fill(Ds, "item")
Dim view1 As New DataView(tables(1))
With TextBox3
.DataSource = Ds.Tables("item")
.DisplayMember = "itemname"
.ValueMember = "itemname"
.SelectedIndex = 0
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
لقد توصلت الى كود
نجح والحمد لله
ها هو الكود للاستفادة
Con.Open()
Ds = New DataSet
tables = Ds.Tables
da = New OleDbDataAdapter("SELECT itemname from item", Con)
da.Fill(Ds, "item")
Dim view1 As New DataView(tables(1))
With TextBox3
.DataSource = Ds.Tables("item")
.DisplayMember = "itemname"
.ValueMember = "itemname"
.SelectedIndex = 0
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.ListItems
End With
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
