نمایش آیتم های ComboBox در TextBox

[scmorfi]

با سلام
یک سئوال شاید مبتدیانه داشتم
می خوام وقتی رو آیتم های combobox
اون آیتم که کلیک می کنم تو یه textbox نشون داده بشه
اگه می شه خط کدش و روویداد مورد نیازش رو بهم بگید
ممنون

[omid-vbAuto]

با سلام
یک سئوال شاید مبتدیانه داشتم
می خوام وقتی رو آیتم های combobox
اون آیتم که کلیک می کنم تو یه textbox نشون داده بشه
اگه می شه خط کدش و روویداد مورد نیازش رو بهم بگید
ممنون



Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
TextBox1.Text = ComboBox1.Text
End Sub

[scmorfi]

داداش من این رو نوشتم ولی جوای نمی ده
Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
TextBox2.Text = DropDownList1.Text
End Sub

[omid-vbAuto]

برنامشو نوشتم:

67080

[Hossis]

این طوری هم میشه نوشت:
textbox2.text=dropdown1.selectedItem

[bhasoft]

با سلام خدمت دوستاي خوبم.
راستش يه سوالي داشتم.نخواستم تاپيك جديد باز كنم و گفتم حالاكه اين قسمت مربوط به كومبوباكس هستش اينجا سوالمو بپرسم.
من ميخوام يه ستون از اطلاعات پايگاه دادمو به كومبو باكس وصل كنم.البته نه بصورت ويزاردي.به صورت كد نويسي و دستي.
ممنون ميشم كمك كنيد.من خيلي گشتم .اما كدها به دردم نخورد.حقيقتش ديگه خسته شدم.ممنون ميشم بهم كمك كنيد...
درضمن پايگاه داده من اكسس هست و با vb.net 2005 دارم كار ميكنم.
البته خيلي ضروري هستش...مرسييييييييييي

[omid-vbAuto]

با سلام خدمت دوستاي خوبم.
راستش يه سوالي داشتم.نخواستم تاپيك جديد باز كنم و گفتم حالاكه اين قسمت مربوط به كومبوباكس هستش اينجا سوالمو بپرسم.
من ميخوام يه ستون از اطلاعات پايگاه دادمو به كومبو باكس وصل كنم.البته نه بصورت ويزاردي.به صورت كد نويسي و دستي.
ممنون ميشم كمك كنيد.من خيلي گشتم .اما كدها به دردم نخورد.حقيقتش ديگه خسته شدم.ممنون ميشم بهم كمك كنيد...
درضمن پايگاه داده من اكسس هست و با vb.net 2005 دارم كار ميكنم.
البته خيلي ضروري هستش...مرسييييييييييي

خیلی ساده می تونید این کارو با بایند کردن انجام بدین.آیا می خواهین با بایند باشه یا پارامتری پر کنید؟

[bhasoft]

راستش دوس دارم كل ستون هاي يك فيلدمو از طريق ديتا ست بريزم داخل كومبو تا ديده بشه و قابل انتخاب باشه.
اگه كدي در اين باره دارين ممنون ميشم ارائه كنين.يا نمونه برنامه.
مرسي از لطفتون.

[bhasoft]

بابا واقعا كه!!!!
كسي نيس به ما جواب بده...
من كدهامو مينويسم.مشكل انگار از ديتا تيبل هست.نشون نميده كه.اگه كسي كد كامل وصل كردن يك ستون از پايگاه داده اكسس به كومبو را تو وي بي دات نت داره لطف كنه بزاره.
مرسي...
واقعا معطلشم.2روزه همه جا كمك ميخوام كسي نيس به دادم برسه!!!!

[bhasoft]

واقعا ممنون از اين همه راهنمائي.......................
آخرسر خودم درستش كردم.

كدهاشو ميزارم تا اگه كسي هم خواست استفاده كنه و اين همه مثل من منتظر جواب نمونه كه هيشكي جواب نداد.......


Dim

ConnectionString AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath & "\database.mdb"

Dim myconnection AsNew OleDb.OleDbConnection(ConnectionString)
myconnection.Open()


Dim str AsString = "SELECT * نام جدول"
Dim ad AsNew OleDb.OleDbDataAdapter(Str, myconnection)
ad.SelectCommand.CommandText =


"SELECT * FROM نام جدول"

Dim table AsNew DataTable()
ad.Fill(table)


Combo1.DataSource = table
Combo1.DisplayMember = "نام فيلد"
myconnection.Close()

[shadi khanum]

راستش دوس دارم كل ستون هاي يك فيلدمو از طريق ديتا ست بريزم داخل كومبو تا ديده بشه و قابل انتخاب باشه.
اگه كدي در اين باره دارين ممنون ميشم ارائه كنين.يا نمونه برنامه.
مرسي از لطفتون.
کل ستون های یک فیلدم یعنی چی؟ بالاخره یه ستون رو میخواید تو کمبو نشون بدین یا همه ستونهاتون رو؟
اگه میخواین یه فیلد رو تو کمبو نشون بدین:
combobox1.datasource=dt
comboox1.displaymember="fielld namayeshi"
combobox1.valuemember="field Id"

[bhasoft]

دوست عزيز ممنون از توجه تون.
جز شما كسي نبود جواب بده.واقعا مرسي كه يه جواب به پيام من دادين.
ممنونم.من كدم رو درست كردم و گذاشتم توي تاپيك تا بقيه استفاده كنن.
بازهم ممنون از اينكه كمكم كردين.مرسي

[bhasoft]

با سلام دوباره خدمت دوستان عزيز.مخصوصا داداش گلم آقا امين كه خيلي بهش زحمت ميدم.
راستش من ميخوام وقتي displaymember يه كومبو باكس كه توش چيزي نوشته رو كليك ميكنيم value member اون سطر داخل يه تكست باكس نوشته بشه.
همونطور كه شادي خانم در پست بالا اشاره كردن.
ولي وقتي اينكار رو ميكنم ، درموقع انتخاب اولي مقدار دومي نشون داده ميشه و الي آخر.
به نظر من مقدار از 0 شروع ميشه و براي همين با گزينه انتخاب شده يدونه تفاضل داره و درست نشون نميده!
چيكار كنم كه درست بشه!؟
من چندين بار با انواع مختلف سعي كردم كه درست كنم اما نشد.
البته اينكار با يه if ساده امكان پذيره اما من ميخوام اين مدلي رو امتحان كنم...
ممنون ميشم به جوابم پاسخ بدين!

مثالش رو هم براتون ضميمه كردم نگاه كنيد.ممنونم...

69110

[bhasoft]

آقا كسي تست نكرد به ماهم كمكي كنه؟؟؟

[bhasoft]

به به!واقعا ممنونم...
يكي پيدا نشد از پسش بر بياد.
انگار بجز داداش امين كسي نيس جواب مارو بده ها!!!!!!!!
اگه الان آنلاين بود مشكلمو حل كرده بود.
حيف ..................

[bhasoft]

بابا تورو خدا كسي به داد ما برسه!
گلي به جمالتون...
ببين چند روزه سوال كردم!يكي نيست يعني راه حل مشكل منو بدونه؟؟؟؟؟؟

[bhasoft]

دوستان تو اين مدت واقعا كسي نبود مشكل منو حل كنه؟؟؟؟؟؟
بابا نمونه گزاشتم چي ميشه دانلود كنين يه نگاهي بهش بنذازين!!!!

[barbodsoft.com]

این کد رو بنویس


Public Module Module1
Public ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath & "\DATABASE.mdb"
Public myconnection As New OleDb.OleDbConnection(ConnectionString)
End Module

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'****Combo load
myconnection.Open()
Dim str As String = "SELECT * FROM Mantageh"
Dim ad As New OleDb.OleDbDataAdapter(str, myconnection)

ad.SelectCommand.CommandText = "SELECT * FROM Mantageh"

Dim table As New DataTable()
ad.Fill(table)

Combo1.DataSource = table
Combo1.DisplayMember = "Nahiyeh"
Combo1.ValueMember = "sh-nahiye"

myconnection.Close()
'****End Combo
T1.Text = Combo1.SelectedValue.ToString
End Sub

Private Sub Combo1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo1.SelectedIndexChanged
T1.Text = Combo1.SelectedValue.ToString
End Sub
End Class

[bhasoft]

واقعا ممنونم داداش...
مرسي
كارم راه افتاد.دمت گرم....:قلب: