[asemshahen5]

PHP كود :

Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
        Dim imgPath As String = dt.Rows(BindingContext(dt).Position)("الحقل رقم 21- اسم العامود الموضوع به مسار الصورة").ToString
        If imgPath.Length > 0 Then
            IO.File.Delete(imgPath)
        End If
        dt.Rows(BindingContext(dt).Position).Delete()
        save_data()
        MsgBox("تم الحذف بنجاح", Title:="تم")
        Close()
    End Sub