contentmenustrip تظهر عند الضغط على أي من صفوف الداتا جريد فيو

السلام عليكم

عزيزي لو استخدم اداة البحث لوفرت عليك الكثير من الوقت بدل الانتظار..

اضغط على هذا الرابط بالتوفيق إن شاء الله.

اخي الغالي لم أفهم ذاك الكود

انا لدي هذا الكود

كيف يمكنني التعديل عليه بحيث عندما أضغط على أي صف واختار حذف يحذف

		Dim dap As New MySqlDataAdapter("select friend_user,friend_msg from friend where friend_friend='" + user_name.Text + "' and friend_val='0';", myconn)
		Dim ds As New DataSet
		dap.Fill(ds, "friend")

		  Me.dvwait.DataSource = ds.Tables(0)
		' dap.Dispose()
		'ds.Dispose()

السلام عليكم

الكود المعروض غير مطابق للطلب...

انت طلبت كيفية اظهار القائمة المختصرة بالازر الايمن , أولاً طبق المثال ثم بعد ذلك طوره حتى تحصل على كيفية

الحذف من خلال تلك القائمة.. بالتوفيق إن شاء الله.

أخي الطيب انا اطبقت المثال لكن ليس عن طريق الكود

لكن اعتقدت ان الكود سيكون به الأمر لزر الحذف

مثلا انا عندي اول صف لنفترض ان id=1

كيف سيقوم زر الحذف له بحذف هذا السجل فقط

والصف التالي كذلك وما يليه

ولك كل الشكر

بهذا الشكل

'When Delete Delete Strap Menu Item Click
	Private Sub DeleteStrMenuItem_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles DeleteStrMenuItem.Click
		If Not ProductsDataGridView.CurrentRow.IsNewRow Then
			ProductsDataGridView.Rows.Remove(ProductsDataGridView.CurrentRow)
		End If
	End Sub

بالتوفيق إن شاء الله.

جرب

   GridView.Rows.RemoveAt(GridView.CurrentRow.Index)

أخي الغالي الشهاب وأخي طارق

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

أشكركما

احسن اللهُ إليك, هذا واضح جداً ان الحذف من DataSet وليس من قاعدة البيانات !!!!!

ضيف اسم زر التحديث بعد سطر الحذف مباشرة, ليتولى حذف ذلك في قاعدة البيانات بشكل مباشر.

بحيث تستخدم فيه الإجراء PerformClick ليتم تنفيذ ما في سطر التحديث

'When Delete Delete Strap Menu Item Click
	Private Sub DeleteStrMenuItem_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles DeleteStrMenuItem.Click
		If Not ProductsDataGridView.CurrentRow.IsNewRow Then
			ProductsDataGridView.Rows.Remove(ProductsDataGridView.CurrentRow)
			BtnUpdate.PerformClick()
		End If
	End Sub

 Private Sub BtnUpdate_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles BtnUpdate.Click

		Try

			Me.Validate()
			Me.ProductsBindingSource.EndEdit()
			Me.ProductsTableAdapter.Update(Me.DsMain.Products)

		Catch ex As DBConcurrencyException
			'Concurrency voilation control..
			MessageBox.Show(ex.Row.ToString, _
			"Concurrency exception", MessageBoxButtons.OK, _
			 MessageBoxIcon.Exclamation)

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
	End Sub

بالتوفيق إن شاء الله

بارك الله فيك

لأكن أخي أرجو تشرح الكود ما فاهم شي منه

أخي الطيب بعد التجربات الكثيرة زبط معي

ها هو الحل ببساطة

	Private Sub del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del.Click
		If Not dvwait.CurrentRow.IsNewRow Then
			myconn.Open()
			L2.Text = dvwait.CurrentRow.Cells(0).Value
			Dim update As String
			update = " delete from friend WHERE friend_Id ='" + L2.Text + "';"
			mycom = New MySqlCommand(update, myconn)
			If mycom.ExecuteNonQuery() Then
				dvwait.Rows.Remove(dvwait.CurrentRow)
			End If
			myconn.Close()
		End If
	End Sub

لكن واجهتني مشكلة

لابد أن أضغط على الصف بالزر اليسار قبل أن أضغط باليمين وأختار الخيار المطلوب

هل هناك حل يعني عندما أضغط بالأيسر تلقائيا يعلم الصف

طيب في هذه الحالة استخدم الحدث : CellContextMenuStripNeeded لمعرفة رقم الصف.

و كذلك عرفة متغير رقمي القيمة لأخذ الرقم الحالي للصف. ثم أحذف عن طريق RemoveAt

الخطوات

1- في الاعلى قم بتعريف المتغير التالي:

 Private RowIndex As Integer = 0

2 - ضع الحدث التالي للشبكية DataGridView بهذا الشكل.

Private Sub ProductsDataGridView_CellContextMenuStripNeeded( _
	ByVal sender As Object, ByVal e As _
	System.Windows.Forms.DataGridViewCellContextMenuStripNeededEventArgs) _
	Handles ProductsDataGridView.CellContextMenuStripNeeded
		RowIndex = e.RowIndex
	End Sub

أخيراً احذف عن طريق RemoveAt بهذا الشكل

'When Delete Delete Strap Menu Item Click
	Private Sub DeleteStrMenuItem_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles DeleteStrMenuItem.Click
		If Not ProductsDataGridView.CurrentRow.IsNewRow Then
			ProductsDataGridView.Rows.RemoveAt(RowIndex)
			BtnUpdate.PerformClick()
		End If
	End Sub

بالتوفيق إن شاء الله.

اكره إحباطك ههههههههههههههه

لكن هذا لم يحذف من قاعدة البيانات سوى أول صف أضغط عليه

يحذف من الداتا جريد لكن لا يحذف من القاعدة

أيضا كيف أخلي الصف لما أضغ عليه بالزر اليمين sellected معلم يعني

لكل كل الإحترام

اقتباس

لكن هذا لم يحذف من قاعدة البيانات سوى أول صف أضغط عليه

اقتباس

يحذف من الداتا جريد لكن لا يحذف من القاعدة

اقتباس

أيضا كيف أخلي الصف لما أضغ عليه بالزر اليمين sellected معلم يعني

Private Sub ProductsDataGridView_CellContextMenuStripNeeded( _
	ByVal sender As Object, ByVal e As _
	System.Windows.Forms.DataGridViewCellContextMenuStripNeededEventArgs) _
	Handles ProductsDataGridView.CellContextMenuStripNeeded
		RowIndex = e.RowIndex
		ProductsBindingSource.Position = RowIndex
		ProductsDataGridView.CurrentRow.Selected = True
	End Sub

بالتوفيق و السداد إن شاء الله.

أخي الغالي مش فاهم الكود

أرجو الشرح وان في امكانية مثال مرفق

اقتباس

أرجو الشرح وان في امكانية مثال مرفق