المشاركات : 319
المواضيع 73
الإنتساب : Oct 2012
السمعة :
2
الشكر: 60
تم شكره 24 مرات في 23 مشاركات
السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل لدي فورم و به ( Textbox + ComboBox )
الـ كومبو بوكس به 5 نتائج ,, الان اريد عرض نتيجة محدده فى التيكست بوكس بمعنى
اريد عرض النتيجه التي ترتيبها فى نتائج الكومبو بوكس 2 فى التيكست بوكس
توضيح اكثر .. الكومبو بوكس به تلك القيم ( ahmed - islam - mido - mohamed - esraa )
اريد عرض النتيجه صاحبة الترتيب 3 , فيظهر لي فى التيكست بوكس mido
و مثلا عرض النتيجة رقم 5 فيظهر لي ahmed
ان شاء الله تكون وصلت الفكره , وجزاكم الله خيرا
المشاركات : 190
المواضيع 5
الإنتساب : Sep 2013
السمعة :
3
الشكر: 27
تم شكره 103 مرات في 33 مشاركات
اخى الكريم
كود الاخ Aly El-Haddad صحيح 100%
طيب جرب تغير وخليه بالشكل ده
TextBox1.Text = ComboBox1.Items(2).tostring '(الترتيب - 1)'
المشاركات : 190
المواضيع 5
الإنتساب : Sep 2013
السمعة :
3
الشكر: 27
تم شكره 103 مرات في 33 مشاركات
طيب ايه هو كود ملئ الكومبوكس بالبيانات عندك؟
المشاركات : 190
المواضيع 5
الإنتساب : Sep 2013
السمعة :
3
الشكر: 27
تم شكره 103 مرات في 33 مشاركات
22-12-12, 02:42 PM
(آخر تعديل لهذه المشاركة : 22-12-12, 02:48 PM {2} بواسطة محمد صبري.)
اخى جرب هذا الكود واخبرنى
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)'
المشاركات : 319
المواضيع 73
الإنتساب : Oct 2012
السمعة :
2
الشكر: 60
تم شكره 24 مرات في 23 مشاركات
ماشاء الله تبارك الله ,, تسلم إيدك يامبدع و الله
تمت التجربة و نجحت الحمد لله , بارك الله فيك و نفع بك الامه
تسسسسسسسسسسسلم