|
Inside Sales Coordinator
|
Callahan
|
|
Sales Manager
|
Buchanan
|
|
Sales Representative
|
Suyama
|
|
|
King
|
|
|
Davolio
|
|
|
Leverling
|
|
|
Peacock
|
|
|
Dodsworth
|
|
Vice President, Sales
|
Fuller
|
Here goes the code
HTML Source
Code Behind
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
BindTitle()
End If
End Sub
Sub BindTitle()
Dim ds As New DataSet()
Dim sqlStmt As String = "SELECT * FROM Employees order by title"
Dim conString As String = "server=localhost;database=Northwind;uid=sa;pwd=;"
Dim myda As SqlDataAdapter = New SqlDataAdapter(sqlStmt, conString)
myda.Fill(ds, "Table")
DataList1.DataSource = ds
DataList1.DataBind()
End Sub
Private Sub DataList1_ItemDataBound(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then
Dim strval As String = CType(e.Item.FindControl("lblTitle"), Label).Text
Dim title As String = ViewState("title")
If title = strval Then
CType(e.Item.FindControl("lblTitle"), Label).Text = ""
e.Item.Visible = False
Else
title = strval
ViewState("title") = title
CType(e.Item.FindControl("lblTitle"), Label).Text = title
e.Item.Visible = True
End If
End If
End Sub
The two other similar kinds of code can be found at
Customizing the data
Display Alphabetically Sorted Data in a DataGrid
