منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

PHP كود :

[size=small]  Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click[/size]

[size=small]        If MsgBox("هل انت متأكد من عملية حذف السجل : " & DataGridView1.CurrentRow.Cells(1).Value, MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then[/size]
[size=small]            Dim Ajouter As Integer = DataGridView1.CurrentRow.Index[/size]
[size=small]            Dim Pos As Integer = bsData.Position[/size]
[size=small]            Dim Row As DataRow = CType(bsData.Current, DataRowView).Row[/size]
[size=small]            PictureDataTable.Rows(Ajouter).Delete()[/size]

[size=small]            bsData.Position = Pos[/size]
[size=small]            PictureDataTable.AcceptChanges()[/size]
[size=small]            MessageBox.Show("تمّت بنجاح عملية حذف بيانات الكتاب", "عملية الحذف", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)[/size]
[size=small]        End If[/size]
[size=small]    End Sub[/size] 

السلام عليكم ورحمة الله وبركاته
اخي المهنا
اعدت برمجة مثالك من جديد سيفيدك الترتيب والتنسيق للكود وطريقة تسمية الادوات
وفقك الله في مسعاك

(18-07-20, 04:27 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي المهنا
اعدت برمجة مثالك من جديد سيفيدك الترتيب والتنسيق للكود وطريقة تسمية الادوات
وفقك الله في مسعاك

ألف مليار شكر تعبناك معانا

بس ليش فيه تعارض بين التسلسل في الجدول بالكود ذا والحذف

اذا فعلت الكود حق التسلسل في الجدول يرفض الحذف

غريبة مدري ليش ابغا ترقيم الجدول وفق الكود ذا مسلسل

والف شكر يا عم إبراهيم

إقتباس :

كود :

[size=small] 'For a = 1 To DataGridView1.RowCount - 1[/size] [size=small] ' DataGridView1.Rows(a - 1).Cells(0).Value = a[/size] [size=small] 'Next[/size]