PDA

View Full Version : BindingNavigator



sm4899
شنبه 16 شهریور 1387, 23:03 عصر
یک BindingNavigator به فرم اضافه کردم که بصورت استاندارد خوش کلیدهای حذف- اضافه
داره و خوب هم انجام میده
ولی مشکل اینجاست من میخوام قبل از حذف خودم یک پیغام بدم و بعد اگر بله بودم که حذف کنه و غیر اینصورت دستور حذف انجام نشه ؟

ali_md110
یک شنبه 17 شهریور 1387, 03:08 صبح
Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
Dim bs As New BindingSource
Tbl_chapterBindingNavigator.BindingSource = bs
If MsgBox("ایامایل به حذف هستید", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
bs.RemoveCurrent()
BindingNavigatorDeleteItem.Enabled = True

End If
End Sub

Tbl_chapterBindingNavigator نام BindingNavigator شماست

sm4899
یک شنبه 17 شهریور 1387, 13:56 عصر
سلام
این کد خطا میده لطفا خودتان تست کنید
ضمنا" من با وبی 2005 کارمیکنم

sm4899
دوشنبه 18 شهریور 1387, 22:33 عصر
در هر صورت ارور میده
درست نشد

sm4899
دوشنبه 25 شهریور 1387, 13:55 عصر
??????????????????????