كمك : حذف ركورد

[raha1815]

سلام
مشكل اين برنامه چيه ؟ براي حذف يه ركورده
اين پيغام و ميده :


update requires a valid updatecommand when passed datarow collection with modified rows.


Dim result As MsgBoxResult
result = MsgBox("? آيا مي خواهيد اطلاعات حذف شود", MsgBoxStyle.YesNo, "Warning")
If result = MsgBoxResult.Yes Then
Dim IndexRow As Integer

If IndexRow <> -1 Then
Try
IndexRow = BindingContext(Me.P5DataSet1, "p5index").Position
P5DataSet1.p5index(IndexRow).Delete()

SqlDataAdapter1.Update(P5DataSet1.p5index)
P5dataset1.p5index.Clear()
SqlDataAdapter1.Fill(P5DataSet1.p5index)


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

End If

End If

End Sub

[anooshiran]

سلام دوست عزيز

اول لطف كن كدهات رو توي محيط كد قرار بده . براي اين كار علامت # را بالاي صفحه تايپ فشار بده و كدت را مابين 2 tag بنويس

درثاني بگو اين ارور رو رو كدام خط برنامت مي ده؟

[raha1815]

سلام با تشكر از شما
وقتي debug ميكنم همون روي خط اول ميمونه


result = MsgBox("? آيا مي خواهيد اطلاعات حذف شود", MsgBoxStyle.YesNo, "Warning")

[anooshiran]

سلام دوست عزيز
مطمئني اشتباه نمي كني كه روي اين خط پيام ميده. اين خط كه چيزي نداره كه خطا بده

اگر ميتوني از خطات يك snap بگير بزار تو سايت