[khowla.goma]

(21-07-20, 08:48 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اختي الكريمة اعتقد انك تتحققين من قيمة حقل الصورة ان كانت فارغة لسجل المطلوب التحقق من وجوده 
لكن انت تضعين رقم السجل 11 وهو غير موجود وفي العادة عندما يتم التحقق من سجل يجب ان تظهر نتيجة واحدة اي سجل واحد 
ويكون رقمه(اندكس) صفر ولهذا السجل حقول (item )منها حقل الصورة لااعلم ان كان 11 .... انت تعرفين والعد يبدأ من الصفر 
غيري الكود الى التالي وان شاء الله يكون صح :

كود :

If Not IsDBNull(dr(0)(11).Value) Then
           'PictureBox1.image
           Dim Pictur() As Byte = (CType(dr((0)(11).Value), Byte()))
           Dim ms As New MemoryStream(Pictur)
           PictureBox1.Image = Image.FromStream(ms)
       Else
           MsgBox("لاتوجد صورة ", MsgBoxStyle.Exclamation, "تنبيه")

اخي الكريم عند التشغيل يعطي نفس الخطا 
    Dim cmd As New SqlCommand

    Sub selectSader1(id_esaryS)
        cmd = New SqlCommand("select * from  Sader1 where id_esaryS = " & id_esaryS, cn)
        cn.Open()
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader
        'dr.Read()
        While dr.Read
            Me.id_esaryS.Text = dr.Item("id_esaryS")
            Me.date_MasgS.Value = dr.Item("date_MasgS")
            Me.Mostalem.Text = dr.Item("Mostalem")
            Me.sefa.Text = dr.Item("sefa")
            Me.namberphon.Text = dr.Item("namberphon")
            Me.websait.Text = dr.Item("websait")
            Me.morfagatS.Text = dr.Item("morfagatS")
            Me.Sader_ela.Text = dr.Item("Sader_ela")
            Me.Sader_men.Text = dr.Item("Sader_men")
            Me.mawdo_MasgS.Text = dr.Item("mawdo_MasgS")
            Me.note.Text = dr.Item("note")
        End While

        If Not IsDBNull(dr(0)(11).Value) Then
            'PictureBox1.image
            Dim Pictur() As Byte = (CType(dr((0)(11).Value), Byte()))
            Dim ms As New MemoryStream(Pictur)
            PictureBox1.Image = Image.FromStream(ms)
        Else
            MsgBox("لاتوجد صورة ", MsgBoxStyle.Exclamation, "تنبيه")
        End If
        cn.Open()
        dr.Close()
    End Sub
اي كانه IsDBNull غير معرفه