اخي الكريم بالنسبة لمشاركتي فحل المشكلة بسيط.
وضمن حدث SearchResultCbB1_SelectedIndexChanged
نسيت ان اقول ان المتغير myrow انقل تعريفه ليكون عام على الفورم.
كود :
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)