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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 5 123 23-02-17, 09:44 PM
آخر رد: فارس احمد السيد
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 47 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 94 12-02-17, 06:17 PM
آخر رد: مساعدة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 154 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
Tongue كيفية تنسيق فورمات التكست بوكس المتألق9 0 33 06-02-17, 05:03 PM
آخر رد: المتألق9
  حل مشكلة في التيكست بوكس عبدالرحمن المكاوي 8 142 06-02-17, 01:52 PM
آخر رد: عبدالرحمن المكاوي
  [سؤال] كيف اربط بين 3 كومبو بوكس لو سمحتم farhat 8 236 06-02-17, 02:00 AM
آخر رد: farhat
  [سؤال] اظهار حقلين في كومبو بوكس ابو يوسف النواوي 2 4 139 02-02-17, 07:51 PM
آخر رد: ابو يوسف النواوي 2
  [VB.NET] ♠ قـراءة صفـوف اللست بوكس ♠ 3asfa~mdmra 2 74 02-02-17, 12:50 AM
آخر رد: 3asfa~mdmra
  ممكن احد يساعدني في التكست بوكس محمد بوقزاحة 4 100 01-02-17, 07:04 PM
آخر رد: محمد بوقزاحة

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


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