تقييم الموضوع :
  • 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]

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 3 56 منذ 7 ساعة مضت
آخر رد: a.ahmed
  أستعلام قائم على 2 كومبو بوكس ودتاجريد فيو. nassery99 4 58 11-10-17, 09:17 PM
آخر رد: nassery99
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 114 08-10-17, 03:21 AM
آخر رد: نبيل فتحى
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 2 96 26-09-17, 11:31 AM
آخر رد: محمد بوقزاحة
  طلب كود في الكومبو بوكس hikmat 1 75 25-09-17, 11:07 PM
آخر رد: wale90
  كيف اربط تكست بوكس مع تكست بوكس اخر داخل تقرير report viewer 78hus78ali 1 58 24-09-17, 01:32 PM
آخر رد: زيد زينوبي
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 58 19-09-17, 03:33 PM
آخر رد: أبو نوره
  نص أرقام في تكست بوكس visualist2015 3 100 14-09-17, 05:48 PM
آخر رد: visualist2015
  [سؤال] كيفية نسخ النصوص من داخل ليست بوكس تنمية المعرفة 7 147 12-09-17, 11:15 PM
آخر رد: تنمية المعرفة
  [كود] استفسار داخل اليست بوكس عبدالرحمن المكاوي 3 102 11-09-17, 05:29 PM
آخر رد: سعود الشامان

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


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