vbblog
جمعه 11 بهمن 1392, 19:37 عصر
سلام به دوستان عزیز.
من تو برنامم میخوام به وسیله دکمه Delete یک رکورد رو حذف کنم ولی خطای زیر رو میده.
Private Sub ButtonX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX8.Click
If Me.DataGridViewX1.RowCount = 0 Then
MsgBox("کاربر گرامی: سوالی برای حذف شدن وجود ندارد", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "خطا")
Else
If MsgBox("آیا از حذف این سوال مطمئن هستید؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "حذف سوال") = MsgBoxResult.Yes Then
Me.JkhBindingSource.RemoveCurrent()
Me.JkhBindingSource.EndEdit()
Me.JkhTableAdapter.Update(Me.DS1.Jkh)
End If
End If
End Sub
116240
من تو برنامم میخوام به وسیله دکمه Delete یک رکورد رو حذف کنم ولی خطای زیر رو میده.
Private Sub ButtonX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX8.Click
If Me.DataGridViewX1.RowCount = 0 Then
MsgBox("کاربر گرامی: سوالی برای حذف شدن وجود ندارد", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "خطا")
Else
If MsgBox("آیا از حذف این سوال مطمئن هستید؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "حذف سوال") = MsgBoxResult.Yes Then
Me.JkhBindingSource.RemoveCurrent()
Me.JkhBindingSource.EndEdit()
Me.JkhTableAdapter.Update(Me.DS1.Jkh)
End If
End If
End Sub
116240