منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] البحث اكتر من مره لا يعرض الصور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [سؤال] البحث اكتر من مره لا يعرض الصور (/showthread.php?tid=11988)



البحث اكتر من مره لا يعرض الصور - sa86ra - 07-04-15

السلام عليكم

اريد المساعده في عرض الصور
عند الضغط علي كلمه في datagridview المفروض يظهر صوره لها في picturebox
الكود شغال تمام لكن لما ابحث اكتر من مره يقف ومايظهرش الصور

كود :
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
       Try

           Dim ImageId As String
           ImageId = DataGridView1.Rows(e.RowIndex).Cells("ColId").Value.ToString()
           Dim ImageName As String
           ImageName = DataGridView1.Rows(e.RowIndex).Cells("ColE").Value.ToString()

           If ImageName <> Nothing And ImageName <> "" Then
               PictureBox1.Refresh()

               PictureBox1.Image = Image.FromFile(System.IO.Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Images/" + ImageName + ".jpg"))
           Else
               PictureBox1.Image = Nothing

           End If
       Catch ex As Exception
           PictureBox1.Image = Nothing
       End Try
ودا كود البحث
كود :
Try

           Dim sql As String
           sql = "select E ," & " A ," & " s from aliaf where E like ('" + Trim(TextBox2.Text) + "%');"
           If DS.Tables.Count = 0 Then Exit Sub
           Dim DV As New DataView(DS.Tables("aliaf"))
           DV.RowFilter = "E like '" & TextBox2.Text & "*'"
           DV.Sort = "E"
           Me.DataGridView2.DataMember = ""
           DataGridView2.DataSource = Nothing
           DataGridView2.DataSource = DV
           conn.Close()


       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Exclamation)
           conn.Close()
       End Try