+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التعامل مع الزر الموجود في DataGrideView هل يستطيع حذف الصف الذي به البتن (/showthread.php?tid=17982)
التعامل مع الزر الموجود في DataGrideView هل يستطيع حذف الصف الذي به البتن - thevirus - 10-11-16
عندي حقل في الداتا قريد فيو ازرار
انا اريد عندما انقر على الزر ان يقوم بحذف الصف الذي يوجد به الزر هل من افادة؟
RE: التعامل مع الزر الموجود في DataGrideView هل يستطيع حذف الصف الذي به البتن - ابراهيم النعيمي - 10-11-16
بالامكان استخدام البروسيجر التالي:
PHP كود :
Public Sub DGVDeleteRecord(ByVal Cellindex As Int16, ByVal DGV As DataGridView)
Try
If DGV.CurrentCell.RowIndex = DGV.NewRowIndex.ToString Then
Exit Sub
ElseIf DGV.CurrentCell.ColumnIndex.ToString = Cellindex Then
Dim msg As Short = MessageBox.Show("سيتم حذف القيد الحالي .. هل أنت متاكد؟", "تأكيد", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, _
MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
If msg = 6 Then
DGV.Rows.RemoveAt(DGV.CurrentCell.RowIndex)
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "خطأ")
End Try
End Sub
و في حدث (CellClick) للـ (DataGridView) ضع السطر التالي:
PHP كود :
Try
If RetainedAmountsDGV.CurrentCell.ColumnIndex = 4 Then
DGVDeleteRecord(4, DataGridView1)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, msgboxtitle)
End Try
مع تغيير فهرست العمود حسب ما موجود عندك اي تغيير الرقم (4) الى (Index) العمود المستخدم للحذف , و تغيير اسم (DataGridView1) الى الاسم المستخدم عندك للـ (DataGridView)
تحياتي ..