Here we will see how to
display corresponding values displayed in Repeater control When we click the
link of Datalist control.
Program
Default.aspx
code
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled
Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
<asp:DataList ID="DataList1" runat="server" DataKeyField="prodid"
BackColor="#FFFFCC">
<HeaderTemplate>
Product Name
</HeaderTemplate>
<HeaderStyle BackColor="#80FFFF" />
<ItemTemplate>
<asp:LinkButton ID="l1" text='<%#Eval("prodname")%>' Runat="server">
</asp:LinkButton>
</ItemTemplate>
</asp:DataList><hr />
<asp:Repeater ID="Repeater1" runat="server">
<HeaderTemplate>
<h1>Show
the Customer who own the product</h1><br />
</HeaderTemplate>
<ItemTemplate>
<b>Customer
ID:</b>
<b>
<%#Eval("custid")%>
</b>
<br>
<b>Customer
Name:</b>
<b>
<%#Eval("custname")%>
</b>
<br>
<b>Customer
Address:</b>
<b>
<%#Eval("custaddress")%>
</b>
</ItemTemplate>
</asp:Repeater>
</form>
</body>
</html>
Default.aspx.vb code
Imports
System.Data
Imports
System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Dim strConnString As String =
System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
Dim con As New SqlConnection(strConnString)
Dim str As String
Dim com As
SqlCommand
Dim sqlda As
SqlDataAdapter
Dim ds As
DataSet
Protected Sub
Page_Load(ByVal sender
As Object, ByVal
e As System.EventArgs)
Handles Me.Load
If Not
IsPostBack Then
bindlist()
End If
End Sub
Sub bindlist()
Try
con.Open()
Str =
"select * from product"
com =
New SqlCommand(Str, con)
Dim reader As
SqlDataReader = com.ExecuteReader
DataList1.DataSource = reader
DataList1.DataBind()
con.Close()
Catch ex As
Exception
Response.Write(ex.Message)
End Try
End Sub
Protected Sub
DataList1_ItemCommand(ByVal source
As Object,
ByVal e As
System.Web.UI.WebControls.DataListCommandEventArgs)
Handles DataList1.ItemCommand
Dim x As String
DataList1.SelectedIndex = e.Item.ItemIndex
bindlist()
x =
DataList1.DataKeys(e.Item.ItemIndex)
bindrepeater(x)
End Sub
Sub bindrepeater(ByVal
s As String)
Try
con.Open()
Str =
"select * from customer where prodid='" & s &
"'"
com =
New SqlCommand(Str, con)
Dim reader As
SqlDataReader = com.ExecuteReader
Repeater1.DataSource = reader
Repeater1.DataMember = "customer"
Repeater1.DataBind()
con.Close()
Catch ex As
Exception
Response.Write(ex.Message)
End Try
End Sub
End Class
Output
