Private Sub dgvResult_SortCompare(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewSortCompareEventArgs) Handles dgvResult.SortCompare
If e.Column.Index > 0 Then
If dgvResult.Columns.Item(e.Column.Index).HeaderText.IndexOf("N") > 0 Then
If (Val(e.CellValue1) < Val(e.CellValue2)) Then
e.SortResult = -1
ElseIf Val(e.CellValue1) = Val(e.CellValue2) Then
e.SortResult = 0
Else
e.SortResult = 1
End If
e.Handled = True
End If
End If
End Sub