ASP.NET - DataGrid com ordenação

Estamos de volta mais uma vez falando do componente DataGrid, creio que um dos componentes mais utilizados no ASP.NET. Dessa vez vamos tornar uma coluna do mesmo ordenável.

por Ramon Durães

Estamos de volta mais uma vez falando do componente DataGrid, creio que um dos componentes mais utilizados no ASP.NET. Dessa vez vamos tornar uma coluna do mesmo ordenável. Sendo que quando o usuário clicar na coluna o DataGrid vai disparar no servidor o evento ShortCommand, nesse evento ele passa um parâmetro que é o e.SortExpression, com esse parâmetro você obtém o valor da coluna que foi clicada, com isso basta modificar a consulta SQL e pronto já ordenou os dados.

Figura 01 - DataGrid ordenando pela coluna

Para esse artigo insira um novo webform e um DataGrid(ID=dgConsulta). Depois adicione o código da Listagem 01.

Listagem 01 - Código para ordenar DataGrid

Public Class DataGrid_Sorting

    Inherits System.Web.UI.Page 

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.dgConsulta.AllowSorting = True  "Tornando coluna  Ordenavel
        If Not Me.Page.IsPostBack Then
            Me.CarregarGrid("")
        End If
End Sub

Private Sub dgConsulta_SortCommand(ByVal source As Object, ByVal e As 
System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dgConsulta.SortCommand

        Me.CarregarGrid(e.SortExpression)

End Sub

Private Sub CarregarGrid(ByVal strFiltro As String)

        If Not strFiltro.Equals("") Then
            strFiltro = " order by " + strFiltro + " asc"
        End If 

        Dim conn As New System.Data.sqlclient.SqlConnection("Data Source=127.0.0.1; Initial 
Catalog=Northwind;UID=sa;Pwd=123456")

        Dim da As New System.Data.sqlclient.SqlDataAdapter
        Dim cmd As New System.Data.SqlClient.SqlCommand
        cmd.Connection = conn
        cmd.CommandText = "select CustomerID,ContactName,Phone from Customers " + strFiltro
        da.SelectCommand = cmd
        Dim dt As New System.Data.DataTable
        Try
            da.Fill(dt)
            With dgConsulta
                .DataSource = dt
                .DataBind()
            End With

        Catch ex As System.Data.SqlClient.SqlException
            Response.Write("Erro SQL" + ex.Message.ToString)
        Catch ex As Exception
            Response.Write("Erro Geral:" + ex.Message.ToString)
        Finally

            dt.Dispose()
            da.Dispose()
          conn.Dispose()

       End Try

End Sub
End Class 

Finalizando

DataGrid é um componente muito bom, revolucionou a forma de apresentar dados na tela. Teremos sempre novos artigos sobre esse WebControl. A partir de agora ative a ordenação dos seus!

Para obter o fonte clique aqui.

"Use .NET não é mais necessário reinventar a roda..."

O que você gostaria saber?
Aguardo seu comentário! Ele é muito importante. Participe!!! Até próximo artigo!

Você é de Salvador Bahia, então participe do grupo de usuários .NET http://www.mutex.com.br