Widok sortowania w górę/w dół w nagłówkach kolumn

Question

Aktualnie pracuję nad kodem, który zajmuje się sortowaniem i danymi stronicowania w widoku siatki. Teraz próbuję wprowadzić strzałkę sortującą (strzałki w górę/w dół obok nagłówków kolumn), ale nie mam żadnego sukcesu. Kod do implementacji strzałek sortowania znajduje się w podpodzie * GridView1_RowCreated *. Teraz, kiedy uruchamiam kod, w ogóle nie widzę strzałek sortujących. Problematyczny wiersz jest następujący: "Jeśli tblAdministrators.SortExpression = lnk.CommandArgument Then" Nie mogę się domyślić, co jest nie tak z tą linią. Zawsze jest Fałszywe dlatego strzałki nie pokazują się.

Private Function GetData(sort As SortDirection) As Data.DataView 

    Dim connection As OracleDBConnect = DAL.GetOracleDBConnection() 
    Dim request As OracleDBRequest = Nothing 
    Dim result As OracleDBResult = Nothing 
    Dim trace As OracleDBChronoTrace = Nothing 
    Dim status As DBStatus 
    Dim sb As New StringBuilder 
    Dim dv As DataView 

    With sb 
     .Append("SELECT * FROM USERS") 
    End With 

    request = New OracleDBRequest(sb.ToString, CommandType.Text) 

    status = connection.Execute(request, result, trace) 

    dv = New DataView(result.DataSet.Tables(0)) 

    If (ViewState("sortExp") IsNot Nothing) Then 
     dv = New Data.DataView(result.DataSet.Tables(0)) 

     If (GridViewSortDirection = SortDirection.Ascending) Then 
      GridViewSortDirection = SortDirection.Descending 
      dv.Sort = CType(ViewState("sortExp").ToString() & DESCENDING, String) 
     Else 
      GridViewSortDirection = SortDirection.Ascending 
      dv.Sort = CType(ViewState("sortExp").ToString() & ASCENDING, String) 
     End If 
    Else 
     dv = result.DataSet.Tables(0).DefaultView 
    End If 

    Return dv 

End Function 


Public Property GridViewSortDirection() As SortDirection 
    Get 
     If ViewState("sortDir") Is Nothing Then 
      ViewState("sortDir") = SortDirection.Ascending 
     End If 

     Return CType(ViewState("sortDir"), SortDirection) 
    End Get 

    Set(ByVal value As SortDirection) 
     ViewState("sortDir") = value 
    End Set 

End Property 


Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles tblAdministrators.PageIndexChanging 

    tblAdministrators.PageIndex = e.NewPageIndex 
    GridViewSortDirection = If(GridViewSortDirection = SortDirection.Descending, SortDirection.Ascending, SortDirection.Descending) 
    tblAdministrators.DataSource = GetData(GridViewSortDirection) 
    tblAdministrators.DataBind() 

End Sub 


Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles tblAdministrators.Sorting 

    ViewState("sortExp") = e.SortExpression 
    tblAdministrators.DataSource = GetData(GridViewSortDirection) 
    tblAdministrators.DataBind() 

End Sub 

Protected Sub GridView1_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles tblAdministrators.RowCreated 
    If e.Row.RowType = DataControlRowType.Header Then 
     For Each tc As TableCell In e.Row.Cells 
      If tc.HasControls() Then 

       Dim lnk As LinkButton = DirectCast(tc.Controls(0), LinkButton) 
       If lnk IsNot Nothing Then 

        Dim img As New System.Web.UI.WebControls.Image() 

        img.ImageUrl = "/images/" & (If(GridViewSortDirection = SortDirection.Ascending, "asc", "desc")) & ".gif" 

        If tblAdministrators.SortExpression = lnk.CommandArgument Then 

         tc.Controls.Add(New LiteralControl(" ")) 
         tc.Controls.Add(img) 

        End If 
       End If 
      End If 
     Next 
    End If 
End Sub 

kod ASPX:

<asp:GridView ID="tblAdministrators" runat="server" AutoGenerateColumns="false" EmptyDataText="No records found" PageSize="25" AllowPaging="True" AllowSorting="True" OnRowCreated="GridView1_RowCreated"> 
     <Columns> 
      <asp:BoundField HeaderText="Name" DataField="Name" SortExpression="NAME"></asp:BoundField> 
     </Columns> 
     <Columns> 
      <asp:BoundField HeaderText="City" DataField="City" SortExpression="CITY"></asp:BoundField> 
     </Columns> 
    </asp:GridView> 

Answer 1

Spójrz na moje próby:

<asp:GridView ID="GridView1" runat="server" AllowPaging="True" 
    AllowSorting="True" AutoGenerateColumns="False" DataKeyNames="CustomerId" 
    DataSourceID="SqlDataSource1"> 
    <SortedAscendingHeaderStyle CssClass="sortasc" /> 
    <SortedDescendingHeaderStyle CssClass="sortdesc" /> 
    <Columns> 
     <asp:CommandField ShowSelectButton="True" /> 
     <asp:BoundField DataField="CustomerId" HeaderText="CustomerId" 
      InsertVisible="False" ReadOnly="True" SortExpression="CustomerId" /> 
     <asp:BoundField DataField="Name" HeaderText="Name" SortExpression="Name" /> 
     <asp:BoundField DataField="IdNumber" HeaderText="IdNumber" 
      SortExpression="IdNumber" /> 
    </Columns> 
</asp:GridView> 

zwrócić uwagę na SortedAscendingHeaderStyle i SortedDescendingHeaderStyle. Po prostu stwórz odpowiednie klasy css z obrazem tła (strzałka w górę i strzałka w dół) i gotowe.

Answer 2

Aby dodać strzałkę sortowania danych w siatce na VB.net formularzem systemu Windows, nawet nie trzeba pisać żadnego kodu

1. Na formularzu w trybie projektowania - wybierz siatkę jesteś pracując z, kliknij prawym przyciskiem myszy przejdź do właściwości, ustaw Tryb wyboru = Wybierz komórkę
2. Na formularzu w trybie projektowania - kliknij strzałkę na siatce po prawej stronie, aby edytować właściwości kolumny, wybierz edytuj lub dodaj kolumny, ustaw SortMode = Automatycznie
3. Jeśli masz kod zawartości komórki (powiedz, że chcesz, aby użytkownik otwierał inny formularz, klikając dowolny wiersz w siatce danych), użyj CellDouble Kliknij właściwość, aby obsłużyć zdarzenie. Jeżeli użyłeś pojedyncze kliknięcie to będzie sortować nagłówek, a także otworzyć formularz dla danej komórce

Private Sub _CellDoubleClick (nadawcę jako przedmiot, E, jak DataGridViewCellEventArgs) Uchwyty DGAcctGrpList.CellDoubleClick