카운트클릭을 이용한 정렬방법

    '버튼 클릭 시 정렬 방법 변경

    Dim countclick As Integer = 0

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

        countclick = countclick + 1

        If countclick Mod 2 = 0 Then  ' 클릭 수를 2로 나누었을때 남은수가 0일경우에 따라 정렬 방법 변경

            DataGridView2.Sort(DataGridView2.Columns(2), System.ComponentModel.ListSortDirection.Descending) '많이 읽어본 순서로 정렬

            Button14.Text = "가나다"

        Else

            DataGridView2.Sort(DataGridView2.Columns(0), System.ComponentModel.ListSortDirection.Ascending) '가나다 순서로 정렬

            Button14.Text = "조회순"

        End If

        'MsgBox(countclick)

    End Sub