How to sort an unbound DataGridView control in vb.net

Hey,

Without seeing your project, there's one suggestion that i'll make.
Check the SortMode property of each column in your datagridview and
make it Automatic. Although in a testproject i made, all of the columns are
set to Automatic by default and sorting works without any changes to
anywhere.

-Avelan

Here is the code that populates the datagridview


Try
            TicketList = TicketsDB.GetTickets("Open")

            DataGridViewTickets.DataSource = TicketList

            DataGridViewTickets.Columns("TicketId").Visible = False
            DataGridViewTickets.Columns("User").Visible = False
            DataGridViewTickets.Columns("Category").Visible = False
            DataGridViewTickets.Columns("Product").Visible = False
            DataGridViewTickets.Columns("Status").Visible = False
            DataGridViewTickets.Columns("TicketDescription").Visible = False
            DataGridViewTickets.Columns("fkDepartmentID").Visible = False
            DataGridViewTickets.Columns("AssignedTo").Visible = False
            DataGridViewTickets.Columns("MarkForDeletion").Visible = False

            DataGridViewTickets.Columns("TicketNumber").HeaderText = "Ticket Number"
            DataGridViewTickets.Columns("DateEntered").HeaderText = "Date Created"
            DataGridViewTickets.Columns("UserFullName").HeaderText = "Client Name"
            DataGridViewTickets.Columns("TicketAging").HeaderText = "Aging"
            DataGridViewTickets.Columns("Priority").HeaderText = "Priority"
            DataGridViewTickets.Columns("StatusDesc").HeaderText = "Status"
            DataGridViewTickets.Columns("AssignedToName").HeaderText = "Assigned To"
            DataGridViewTickets.Columns("DateClosed").HeaderText = "Date Closed"
            DataGridViewTickets.Columns("TicketType").HeaderText = "Ticket Type"
            DataGridViewTickets.Columns("Department").HeaderText = "Department"
            DataGridViewTickets.Columns("CategoryName").HeaderText = "Category"
            DataGridViewTickets.Columns("ProductServiceName").HeaderText = "Product/Service"


            DataGridViewTickets.Columns("TicketNumber").DisplayIndex = 1
            DataGridViewTickets.Columns("StatusDesc").DisplayIndex = 2
            DataGridViewTickets.Columns("Priority").DisplayIndex = 3
            DataGridViewTickets.Columns("DateEntered").DisplayIndex = 4
            DataGridViewTickets.Columns("DateClosed").DisplayIndex = 5
            DataGridViewTickets.Columns("TicketAging").DisplayIndex = 6
            DataGridViewTickets.Columns("UserFullName").DisplayIndex = 7
            DataGridViewTickets.Columns("Department").DisplayIndex = 8
            DataGridViewTickets.Columns("AssignedToName").DisplayIndex = 9
            DataGridViewTickets.Columns("TicketType").DisplayIndex = 10
            DataGridViewTickets.Columns("CategoryName").DisplayIndex = 11
            DataGridViewTickets.Columns("ProductServiceName").DisplayIndex = 12

            'DataGridViewTickets.ReadOnly = True
            DataGridViewTickets.AllowUserToResizeColumns = False
            DataGridViewTickets.SelectionMode = DataGridViewSelectionMode.FullRowSelect
            DataGridViewTickets.AutoResizeColumns()

        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.GetType.ToString)
        End Try

What is your datasource?

Your datasource needs to support sorting.

-Avelan

My datasource is a list  "List(Of Tickets)"

Public Shared Function GetTickets(ByVal strMode As String) As List(Of Tickets)
        Dim TicketList As New List(Of Tickets)
        Dim connection As SqlConnection = DBConnection.GetConnection(True)
        Dim SQL As String = ""
        Const closed As Integer = 5
 
        If strMode = "Open" Then
            SQL = "SELECT tblTicketsQueue.pkTicketID, tblTicketsQueue.DateEntered, tblUsers.UserFirstName, " _
                      & "tblUsers.UserLastName, tblUsers_1.UserFirstName AS AFirstName, tblUsers_1.UserLastName AS ALastName, tblDepartment.DepartmentName, " _
                      & "tblTicketsQueue.TicketNumber, " _
                      & "tblTicketsQueue.TicketPriority, tblTicketsQueue.TicketType, tblCategory.CategoryDesc, " _
                      & "tblProductsAndServices.ProductsAndServicesDesc, tblTicketsQueue.TicketDescription, " _
                      & "tblTicketsQueue.CloseDate, tblStatus.StatusDesc, tblTicketsQueue.fkUser, tblTicketsQueue.fkCategory, " _
                      & "tblTicketsQueue.fkProduct, tblTicketsQueue.fkStatus, tblTicketsQueue.AssignedTo, tblUsers.fkDepartmentID " _
                & "FROM tblTicketsQueue INNER JOIN " _
                      & "tblStatus ON tblTicketsQueue.fkStatus = tblStatus.pkStatusID INNER JOIN " _
                      & "tblUsers ON tblTicketsQueue.fkUser = tblUsers.pkUserID INNER JOIN " _
                      & "tblCategory ON tblTicketsQueue.fkCategory = tblCategory.pkCategoryID INNER JOIN " _
                      & "tblDepartment ON tblUsers.fkDepartmentID = tblDepartment.pkDepartmentID INNER JOIN " _
                      & "tblProductsAndServices ON tblTicketsQueue.fkProduct = tblProductsAndServices.pkProductAndServices LEFT OUTER JOIN " _
                      & "tblUsers AS tblUsers_1 ON tblTicketsQueue.AssignedTo = tblUsers_1.pkUserID " _
                & "WHERE tblTicketsQueue.fkStatus NOT LIKE " & closed & " AND tblTicketsQueue.MarkForDeletion NOT LIKE 1 " _
                & "ORDER BY pkTicketID DESC"
 
        End If
        Dim selectCommand As New SqlCommand(SQL, connection)
 
        Try
            connection.Open()
            Dim reader As SqlDataReader
            reader = selectCommand.ExecuteReader()
            Dim i As Integer
            i = reader.RecordsAffected
 
            Dim Ticket As Tickets
            Do While reader.Read
                Ticket = New Tickets
                Ticket.TicketId = CLng(reader("pkTicketID"))
                Ticket.DateEntered = CDate(reader("DateEntered"))
                If Not IsDBNull(reader("CloseDate")) Then
                    Ticket.TicketAging = DateDiff(DateInterval.DayOfYear, CDate(reader("DateEntered")), CDate(reader("CloseDate")))
                Else
                    Ticket.TicketAging = DateDiff(DateInterval.DayOfYear, CDate(reader("DateEntered")), Now)
                End If
                Ticket.TicketNumber = reader("TicketNumber").ToString
                Ticket.UserFullName = reader("UserFirstName").ToString & " " & reader("UserLastName").ToString
                Ticket.AssignedToName = reader("AFirstName").ToString & " " & reader("ALastName").ToString
                Ticket.Department = reader("DepartmentName").ToString
                Ticket.Priority = reader("TicketPriority").ToString
                Ticket.TicketType = reader("TicketType").ToString
                Ticket.CategoryName = reader("CategoryDesc").ToString
                Ticket.ProductServiceName = reader("ProductsAndServicesDesc").ToString
                Ticket.StatusDesc = reader("StatusDesc").ToString
                Ticket.User = CInt(reader("fkUser"))
                Ticket.Category = CInt(reader("fkCategory"))
                Ticket.Product = CLng(reader("fkProduct"))
                Ticket.Status = CInt(reader("fkStatus"))
                Ticket.fkDepartmentID = CInt(reader("fkDepartmentID"))
                Ticket.TicketDescription = reader("TicketDescription").ToString
                If Not IsDBNull(reader("CloseDate")) Then
                    Ticket.DateClosed = CDate(reader("CloseDate"))
                End If
                If Not IsDBNull(reader("AssignedTo")) Then
                    Ticket.AssignedTo = CLng(reader("AssignedTo"))
                End If
                TicketList.Add(Ticket)
            Loop
            reader.Close()
 
        Catch ex As Exception
            Throw ex
        Finally
            connection.Close()
        End Try
        Return TicketList
    End Function

Select allOpen in new window