(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]
السّلام عليكم و رحمة الله و بركاته
يعطيك ألف صحّة و ألف عافية أخي الكريم " سعود الشامان " على حسن المتابعة الرائعة الطيّبة
إلهي لا يحرمنا منك أبدًا و يطيل بعمرك بمحبّته و مرضاته
بارك الله فيك و لك و في كل أفراد أسرتك الكريمة
سأستغل ملفك بدراسته و دراسة أفكاره النيّرة إن شاء الله
تقبّل كل الود و الحب الأخوي و الاحترام و التقدير و الامتنان و العرفان بجميل أعمالك
تحياتي و تقييماتي
