+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هذا الكود غلبني (/showthread.php?tid=35701)
هذا الكود غلبني - المهنا - 18-07-20
هذا الكود يرفض حفظ الحذف في قاعدة البيانات
يحذفه من الجدول وعند فتح الفوم يعود من جديد
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]
RE: هذا الكود غلبني - ابراهيم ايبو - 18-07-20
السلام عليكم ورحمة الله وبركاته
اخي المهنا
اعدت برمجة مثالك من جديد سيفيدك الترتيب والتنسيق للكود وطريقة تسمية الادوات
وفقك الله في مسعاك
RE: هذا الكود غلبني - المهنا - 19-07-20
(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]