[عبد العزيز البسكري]

(06-02-18, 10:08 PM)محمد بن عطية كتب : If DT.ROWS.COUNT = 0 Then
            Exit Sub
        End If
تححقق من وجود سجلات اولا   DT هي داتا تايبل تجلب السلاجلات

في كل البرامج يجب وضع قواعد التحقق أولا في الكود

السّلام عليكم و رحمة الله و بركاته

تسلم أخي الكريم " محمد بن عطية " و سلم يمينك و دينك

بارك الله فيك و لك و جزاك خير الجزاء و زادها بموازين حسناتك إن شاء الله

هذا ما كنت أبحث عنه ..

فعلاً تحقّق المطلوب .. و كود  الحذف يعمل بطريقة ممتازة ..

كود :

   Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
       If InfoTable.Rows.Count = 0 Then
           MsgBox("قاعدة البيانات فارغة .. لا توجد بيانات لتنفيذ الأمر ")
           Exit Sub
       End If
       If MessageBox.Show("  هل تريد فعلا حذف بيانات هذا المسجل ؟؟ " & TextBox2.Text & " " & TextBox3.Text & " ? ", "الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then
           InfoManager.RemoveAt(InfoManager.Position)
           MsgBox("تمت بنجاح عملية الحذف ", MsgBoxStyle.Information, "حذف البيانات")
       Else
           Call SetState("View")
       End If
   End Sub

أجدّد شكري و تقديري و امتناني لسيادتك

إحتراماتي و تقييماتي

---

(06-02-18, 10:11 PM)سعود الشامان كتب : بيوصلك باذن الله بس عطني بعض الدقائق

فعلا الملف معطوب اتوقع اني اعتمدت المشاركة والملف لم يكتمل رفعه

جاري حذفه واعادة رفعه من جديد مع التجربة بعد الرفع

---

تم رفع المشروع ع الميديا فاير و الملف يفتح بشكل سليم

http://www.mediafire.com/file/57g8x4m57s..._test2.zip
[url=http://www.mediafire.com/file/57g8x4m57sv351r/sintral_test2.zip][/url]

السّلام عليكم و رحمة الله و بركاته

يعطيك ألف صحّة و ألف عافية أخي الكريم " سعود الشامان " على حسن المتابعة الرائعة الطيّبة

إلهي لا يحرمنا منك أبدًا و يطيل بعمرك بمحبّته و مرضاته

بارك الله فيك و لك و في كل أفراد أسرتك الكريمة

سأستغل ملفك بدراسته و دراسة أفكاره النيّرة إن شاء الله

تقبّل كل الود و الحب الأخوي و الاحترام و التقدير و الامتنان و العرفان بجميل أعمالك

تحياتي و تقييماتي