[ZaerAllail]

(29-06-18, 10:57 PM)سعود كتب : اخي الكريم بالنسبة لمشاركتي فحل المشكلة بسيط.

كود :

SearchResultCbB1.Items.Clear()
       Dim mysql As String = "[Fname]='" & SearchTB1.Text & "'"
       myrow = dt.Select(mysql)
       For r As Integer = 0 To myrow.Count - 1
           SearchResultCbB1.Items.Add(myrow(r)(1))
       Next

وضمن حدث SearchResultCbB1_SelectedIndexChanged

كود :

       TextBox4.Text = myrow(sender.selectedindex)(1)
       TextBox5.Text = myrow(sender.selectedindex)(2)
       SearchDateDTP.Value = CDate(myrow(sender.selectedindex)(3))
       Dim pbyte() As Byte = myrow(sender.selectedindex)(4)
       Dim ms As New MemoryStream(pbyte)
       PictureBox2.Image = Image.FromStream(ms)

نسيت ان اقول ان المتغير myrow انقل تعريفه ليكون عام على الفورم.

تسلم أناملك اخ سعود زادك الله علم وفضل

الأكواد إلي وضعتها تعطي طريقه مختلفه عن إلي وضعتها وعن إلي عدلها الأخ الجوكر وبهذا الشكل يصبح هناك العديد من الطرق وهذا جدا مفيد لمن يرغب التوسع والتنوع في إستخدام أوامر وجمل البرنامج !!

ويبقى طريقة الحفظ حتى يصبح النموذج كاملاً من جميع الجوانب ويستفيد منه كل من يرغب في الإطلاع عليه 

بارك الله فيك يا غالي 

تحياتي لك !