wewastw

 

       顯示選擇項內容

 TextBox5.Text = DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value.ToString()

    End Sub

選擇項往下

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        DataGridView1.BindingContext(DataGridView1.DataSource).Position += 1

    End Sub

選擇項往上

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        DataGridView1.BindingContext(DataGridView1.DataSource).Position -= 1

    End Sub

搜尋該項並注視該項

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        For i As Integer = 0 To DataGridView1.RowCount - 1

            If TextBox4.Text = DataGridView1.Item(0, i).Value.ToString Then

                DataGridView1.BindingContext(DataGridView1.DataSource).Position = i

                DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect

                DataGridView1.Item(0, i).Selected = True

                Exit For

            End If

        Next

    End Sub

  關掉排序

For i As Integer = 0 To DataGridView1.ColumnCount - 1
            DataGridView1.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
        Next