تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التحكم بمحتويات الكومبو بوكس ؟
#1
السلام عليكم ورحمة الله وبركاتة

اخواني الافاضل لدي فورم و به ( Textbox + ComboBox )

الـ كومبو بوكس به 5 نتائج ,, الان اريد عرض نتيجة محدده فى التيكست بوكس بمعنى

اريد عرض النتيجه التي ترتيبها فى نتائج الكومبو بوكس 2 فى التيكست بوكس

توضيح اكثر .. الكومبو بوكس به تلك القيم ( ahmed - islam - mido - mohamed - esraa )

اريد عرض النتيجه صاحبة الترتيب 3 , فيظهر لي فى التيكست بوكس mido
و مثلا عرض النتيجة رقم 5 فيظهر لي ahmed


ان شاء الله تكون وصلت الفكره , وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
كود :
TextBox1.Text = ComboBox1.Items(2) '(الترتيب - 1)'
الرد }}}
تم الشكر بواسطة:
#3
Aly El-Haddad كتب :
كود :
TextBox1.Text = ComboBox1.Items(2) '(الترتيب - 1)'

شكرا لك اخي الفاضل على المساعده بارك الله فيك

و لكن للاسف لم استطع التطبيق Sad

انا جعلت الكود هكذا


TextBox21.Text = ComboBox21.Items(1) '(الترتيب - 1)'

كي اعرض النتيجة رقم 2


ولكن ظهر لي هذا الخطأ

Conversion from type 'DataRowView' to type 'String' is not valid.


ياريت لو تساعدني بالله عليك Sad
الرد }}}
تم الشكر بواسطة:
#4
اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده

TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'
الرد }}}
تم الشكر بواسطة:
#5
learning.net كتب :اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده

TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'

جزاك الله خيرا اخي الفاضل على المساعده بارك الله فيك

جربت الكود الجديد و لكن وجدت ان نتيجة التيكست بوكس System.Data.DataRowView

؟
الرد }}}
تم الشكر بواسطة:
#6
طيب ايه هو كود ملئ الكومبوكس بالبيانات عندك؟
الرد }}}
تم الشكر بواسطة:
#7
تفضل عزيزي هذا هو الكود كاملاً Smile

PHP كود :
Dim saveintoo As New OleDb.OleDbCommand
        Dim constrr 
As String "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" Application.StartupPath "\db.mdb"
        
Dim connn As New OleDb.OleDbConnection(constrr)
        
Dim DataSett As New DataSet
        Dim SQLstrr 
As String
        SQLstrr 
"SELECT * From factor_daora Where factor_daoraa_name=('" TextBox10.Text "')Order by factor_daora_id"
        
connn.Open()
        
Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrrconnn)
        
dataadapterr.Fill(DataSett"factor_daora")
        
connn.Close()
        
ComboBox21.DataSource DataSett.Tables("factor_daora")
        
ComboBox21.DisplayMember "factor_daora_id"
        
TextBox21.Text ComboBox21.Items(1).ToString '(الترتيب - 1)' 
الرد }}}
تم الشكر بواسطة:
#8
اخى جرب هذا الكود واخبرنى
Dim saveintoo As New OleDb.OleDbCommand
Dim constrr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
Dim connn As New OleDb.OleDbConnection(constrr)
Dim DataSett As New DataSet
Dim SQLstrr As String
SQLstrr = "SELECT * From factor_daora Where factor_daoraa_name=('" & TextBox10.Text & "')Order by factor_daora_id"
connn.Open()
Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrr, connn)
dataadapterr.Fill(DataSett, "factor_daora")
connn.Close()

ComboBox21.Items.Clear()
For X As Integer = 0 To DataSett.Tables("factor_daora").Rows.Count - 1
ComboBox21.Items.Add(DataSett.Tables("factor_daora").Rows(X).Item("factor_daora_id"))
Next

TextBox21.Text = ComboBox21.Items(1).ToString '(الترتيب - 1)'
الرد }}}
تم الشكر بواسطة:
#9
ماشاء الله تبارك الله ,, تسلم إيدك يامبدع و الله

تمت التجربة و نجحت الحمد لله , بارك الله فيك و نفع بك الامه

تسسسسسسسسسسسلم
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته

بعد إذن (learning.net)

الطريقة الأفضل لربط الأدوات بقاعدة البيانات
كود :
Dim conn As New OleDb.OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;                   " & _
                                      " Data Source =" & Application.StartupPath & "\db.mdb ")
Dim sql As String = "   SELECT factor_daoraa_name, factor_daora_id          " & _
                    "     FROM factor_daora                                 " & _
                    "    WHERE factor_daoraa_name = @factor_daoraa_name     " & _
                    " ORDER BY factor_daora_id                              "

Dim comm As New OleDb.OleDbCommand(sql, conn)
comm.Parameters.AddWithValue("@factor_daoraa_name", Me.TextBox10.Text)

Dim dt As New [color=#FF0000]DataTable[/color]
Dim da As New OleDb.OleDbDataAdapter(comm)
da.Fill(dt)

ComboBox21.DataSource = dt("factor_daora")
ComboBox21.DisplayMember = "factor_daora_id"

لعرض العنصر المختار
كود :
TextBox21.Text = ComboBox21.[color=#FF0000]SelectedItem[/color]

لعرض factor_daora_id للعنصر المختار
كود :
TextBox21.Text = ComboBox21.[color=#FF0000]SelectedValue[/color]

السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 142 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 440 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيف ارسل مجموع 3 تكست بوكس إلى واحد بالترتيب ؟ أبووسم 3 330 18-12-23, 05:17 PM
آخر رد: أبووسم
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 507 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
Rainbow [كود] كود الدخول على لوحه التحكم محمد مسافر 2 374 22-07-23, 05:31 PM
آخر رد: Taha Okla
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,620 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إرسال البيانات من التكست بوكس إلى الداتا قريد أبووسم 5 720 28-04-23, 04:15 PM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم