<%@ Page Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" title="Untitled Page" %>

<%@ Register Src="Control/TovarDetails.ascx" TagName="TovarDetails" TagPrefix="uc1" %>
<asp:Content ID="Content1" ContentPlaceHolderID="P1" Runat="Server">
    <asp:DataList ID="DataList1" runat="server">
        <ItemTemplate>
            <table border="1">
                <tr valign=top>
                    <td><asp:ImageButton ID="ImageButton1" runat="server" ImageUrl="~/Icon/Icon2.ico" /></td>
                    <td><uc1:TovarDetails ID="TovarDetails1" runat="server" /> </td>
                </tr>
             </table>
        </ItemTemplate>
    </asp:DataList>
</asp:Content>

Partial Class _Default
    Inherits System.Web.UI.Page

    Dim WithEvents WorkNodes As New SH.WorkingTovarList

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        If Not (Session("WorkNodes") Is Nothing) Then WorkNodes = Session("WorkNodes")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DataList1.DataSource = WorkNodes
        DataList1.DataBind()
    End Sub

    Protected Sub DataList1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1.ItemDataBound
        'сначала находим внутри шаблона нужный контрол'
        For Each X As System.Web.UI.Control In e.Item.Controls
            If X.GetType.Name = "control_tovardetails_ascx" Then
                'теперь собственно выполняем привязку вручную'
                CType(X, ASP.control_tovardetails_ascx).OneTovar = CType(e.Item.DataItem, SH.WorkingTovar)
            End If
        Next
    End Sub
End Class