port72
دوشنبه 04 شهریور 1392, 06:52 صبح
سلام
کد زیر اسم فرد رو در کومبو باکس سرچ میکونه اما می خوام وقتی فرد رو انتخاب میکونیم در تکس باکس زیر آن آدرس مربوط به اون شخص هم بیاد.
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Private Sub AutocomplateCustomSource()
On Error Resume Next
Dim str As String = My.Settings.DemoConnectionString
Dim con As New OleDbConnection(str)
con.Open()
Dim da As New OleDbDataAdapter("Select name From tbl_moshtari", con)
Dim ds As New DataSet
da.Fill(ds)
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox1.AutoCompleteCustomSource.Add(ds.Tables(0 ).Rows(i)(0))
Next i
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
AutocomplateCustomSource()
End Sub
End Class
کد زیر اسم فرد رو در کومبو باکس سرچ میکونه اما می خوام وقتی فرد رو انتخاب میکونیم در تکس باکس زیر آن آدرس مربوط به اون شخص هم بیاد.
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Private Sub AutocomplateCustomSource()
On Error Resume Next
Dim str As String = My.Settings.DemoConnectionString
Dim con As New OleDbConnection(str)
con.Open()
Dim da As New OleDbDataAdapter("Select name From tbl_moshtari", con)
Dim ds As New DataSet
da.Fill(ds)
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox1.AutoCompleteCustomSource.Add(ds.Tables(0 ).Rows(i)(0))
Next i
con.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
AutocomplateCustomSource()
End Sub
End Class