PDA

View Full Version : یک مشکل در رابطه با حذف داده



Navid Asadi
یک شنبه 01 شهریور 1388, 22:58 عصر
سلام دوستان
من از کد زیر برای حذف کردن داده از بانک استفاده میکنم...


cn.Open()
P = Me.BindingContext(ds, "Datas").Position
i2 = ds.Tables("Datas").Rows(P).Item("ID")
Del = "Delete from Datas Where ID = " & i2
TextBox2.Text = P & "'" & i2
Dim cm As New OleDbCommand()
cm.CommandText = Del
cm.Connection = cn
cm.ExecuteNonQuery()
ds.Clear()
da.Fill(ds, "Datas")
Me.BindingContext(ds, "Datas").Position = 0
DataGridView1.DataSource = ds.Tables("Datas")
P = Me.BindingContext(ds, "Datas").Position
cn.Close()

اما بعد از حذف شدن اولین ردیف دیتاگرید ویو نیز به همراه رکورد مورد نظر حذف میشه البته ظاهرا و بعد از دوباره لود شدن فرم همه چیز به حالت اول بر میگرده...
علتش چیه؟