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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,348 30-11-16, 10:16 PM
آخر رد: omferas
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 3 66 27-11-16, 07:13 PM
آخر رد: ابراهيم النعيمي
  كيف اقوم بتعبئت كمبو بوكس من جدول في اسكيول سيرفر معتز الجازوي 2 63 19-11-16, 03:10 AM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 70 19-11-16, 02:19 AM
آخر رد: hglogtd
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 1 69 17-11-16, 10:50 PM
آخر رد: السرور
  كيف اربط ثلاثة كومبو بوكس abanoub saeed nabil 6 171 13-11-16, 11:23 PM
آخر رد: هاوي1995
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 104 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
Big Grin [VB.NET] الكنترولز في التول بوكس مش متفعلة Asmaa adel 0 42 30-10-16, 09:47 AM
آخر رد: Asmaa adel
  طريقة تغيير الباك كلر للتكست بوكس thevirus 8 210 29-10-16, 05:57 PM
آخر رد: thevirus
  ;كيف اضع صورة لخلفية ريتش بوكس samira20 3 130 27-10-16, 07:22 AM
آخر رد: samira20

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


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