[manager5]

لا الله يحفظك

عندما يتم تحميل الجدول كامل

تستطيع تصفحة الجدول ولكن عند التحديث يتغير التحديد ويعود الي الاعلى

---

اريد عندما تختار Dennis بثبت الاختيار ولا يعود الي الاعلى عند Bud

---

Imports System.Data.SqlClient

Public Class Form20
   Public Sub New()
       InitializeComponent()
       BindGrid()


   End Sub

   Private Sub BindGrid()
       Dim constring As String = "Data Source= 0000000;Initial Catalog=ss;user id=000000;password=22222"
       Using con As New SqlConnection(constring)
           Using cmd As New SqlCommand("SELECT * FROM user", con)
               cmd.CommandType = CommandType.Text
               Using sda As New SqlDataAdapter(cmd)
                   Using dt As New DataTable()
                       sda.Fill(dt)




                       DataGridView1.DataSource = Nothing
                       DataGridView1.AutoGenerateColumns = False
                       DataGridView1.ColumnCount = 3


                       'Add Columns
                       DataGridView1.Columns(0).Name = "ID"
                       DataGridView1.Columns(0).HeaderText = "ID"
                       DataGridView1.Columns(0).DataPropertyName = "ID"

                       DataGridView1.Columns(1).Name = "Name"
                       DataGridView1.Columns(1).HeaderText = "Name"
                       DataGridView1.Columns(1).DataPropertyName = "Name"

                       DataGridView1.Columns(2).Name = "ff"
                       DataGridView1.Columns(2).HeaderText = "ff"
                       DataGridView1.Columns(2).DataPropertyName = "ff"

                       DataGridView1.DataSource = dt



                   End Using
               End Using
           End Using
       End Using


   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       BindGrid()
   End Sub

End Class