<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Configuration" %>
<script language="VB" runat="server">
Protected Function LoadList() As ArrayList
Dim arrList As New ArrayList
arrList.Add("Uno")
arrList.Add("Dos")
arrList.Add("Tres")
Return arrList
End Function
Private Sub save_carrito(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs )
If e.CommandName = "Editar" Then
Response.Write(CType(e.Item.FindControl("ddlTest") , DropDownList).SelectedItem.Value)
End If
End Sub
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Not IsPostBack Then
Dim oConn As New SqlConnection("
Tu_conexion")
Dim dAdap As New SqlDataAdapter("select * from tabla", oConn)
Dim ds As New DataSet
dAdap.Fill(ds)
DataList1.DataSource = dss
DataList1.DataBind()
End If
End Sub
</script>
<HTML>
<HEAD>
<title>WebForm1</title>
<script language="javascript">
</script>
</HEAD>
<body>
<form id="Form1" method="post" runat="server">
<asp:linkbutton id="LinkButton1" runat="server">LinkButton</asp:linkbutton><asp:textbox id="TextBox1"
runat="server" Width="400px"></asp:textbox><br>
<P> </P>
<P><asp:datalist id="DataList1" runat="server" OnItemCommand="save_carrito">
<ItemTemplate>
<asp:TextBox Runat=server ID="txtTest" Text='<%# Container.DataItem("Company") %>'>
</asp:TextBox>
<asp:DropDownList Runat=server ID="ddlTest" DataSource='<%# LoadList() %>'>
</asp:DropDownList>
<asp:ImageButton Runat="server" ID="bntImage" ImageUrl="fontbackcolorpicker.gif" CommandName="Editar"></asp:ImageButton>
</ItemTemplate>
</asp:datalist>
</form>
</body>
</HTML>