Datalist link click value in repeater

Satyapriyanayak
Posted by Satyapriyanayak under ASP.NET category on | Points: 40 | Views : 902
Here we will see how to display corresponding values displayed in Repeater control.When we click the link of Datalist control.


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

Comments or Responses

Login to post response