Un datatable con le lettere dell'alfabeto, utilizzabile per eseguire dei filtri sui dati
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Collections" %>
<%@ import Namespace="System" %>
<%@ Page Language="vb" %>
<HTML>
<HEAD>
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim dt As DataTable = New DataTable
Dim letters As String() = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", _
"L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", _
"W", "X", "Y", "Z", "Tutti"}
dt.Columns.Add(New DataColumn("Letter"))
Dim i As Integer
For i = 0 To letters.Length - 1
Dim dr As DataRow = dt.NewRow()
dr(0) = letters(i)
dt.Rows.Add(dr)
Next
rptLetters.DataSource = dt.DefaultView
rptLetters.DataBind()
End Sub
</script>
</HEAD>
<body>
<form id="form1" runat="server">
<div>
<asp:repeater id="rptLetters" runat="server">
<itemtemplate>
<asp:linkbutton id="lnkLetter" runat="server" commandname="Filter" commandargument='<%# DataBinder.Eval(Container, "DataItem.Letter")%>'>
<%# DataBinder.Eval(Container, "DataItem.Letter")%>
</asp:linkbutton>
</itemtemplate>
</asp:repeater>
</div>
</form>
</body>
</HTML>
Scarica il Codice...
Stampa la pagina