If mySort = "ASC" Then
            lstvwJobNo.Columns(e.Column.ToString).Text = lstvwJobNo.Columns(e.Column.ToString).Text & " ▼"
            mySort = "DESC"
        Else
            mySort = "ASC"
            lstvwJobNo.Columns(e.Column.ToString).Text = lstvwJobNo.Columns(e.Column.ToString).Text & " ▲"
        End If

        Dim fJobNo As String = ""
        fJobNo = txtJobNo.Text.Trim()
        r = List_dgJobNo(fJobNo)
        lstvwJobNo.Refresh()

End Sub

上一页  [1] [2]