PDA

View Full Version : مشکل با دیتاگریدویو



هادی123
سه شنبه 14 اسفند 1386, 19:11 عصر
با سلام
برنامه ای را درنظر بگیرید که لیستی را با دیتا گرید نمایش می دهد برای هر رکورد دکمه ای وجود دارد که آن رکورد را حذف می کند
می خواستم بعد از حذف رکورد ، رکورد بعدی انتخاب شود نه رکورد ابتدایی

با تشکر

reza_Nazem
چهارشنبه 15 اسفند 1386, 11:06 صبح
Imports System.Data.SqlClient
Public Class Form1
Dim co As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Test;Data Source=SQL2000")
Dim da As New SqlDataAdapter("Select * from Test", co)
Dim ds As New DataSet
Dim Dv As New DataView
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

da.Fill(ds, "T1")
Dv.Table = ds.Tables("T1")
DataGridView1.DataSource = Dv
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'delete and set position
Dim i As Integer = Dv.ToTable.Rows(Me.BindingContext(Dv).Position).It em(0)
Dim Row As Integer = Me.BindingContext(Dv).Position

Dim Cmd As New SqlCommand("Delete from Test Where ID =" + i.ToString, co)
co.Open()
Cmd.ExecuteNonQuery()
co.Close()

ds.Clear()
da.Fill(ds.Tables("T1"))

Me.BindingContext(Dv).Position = Row
End Sub
End Class


در این کد من کلید اصلی جدول را در متغییر i ذخیره کردم و شماره سطر جاری را در متتغیر Row بعد از عمل حذف دوباره با دستور



Me.BindingContext(Dv).Position = Row


به همان شماره سطر برمی گردم