DataList Anidados con CodeBehind¿?

[CoRdELiA]

Hola..
COmo el titulo de mi tema lo indica quisiera saber alguna manera para crear DataList anidados, pero no desde html y scripts directamente sino con codebehind, estoy editando en visual studio con visual Basic.. ASP.NET
De antemano Gracias y espero sus comentarios...

[AlZuwaga]

¿esto sería de ASP 3, de ASP.NET o de qué?

[CoRdELiA]

ups.. es de ASP.NET =)

[AlZuwaga]

ok, te traslado hacia el foro correspondiente

;)

[CoRdELiA]

Sigo en las mismas... no encuentro aun como hacer datalist con datagrid anidado... envio el codigo para ver si me pueden ayudar..

Codigo Html
...
<asp:datalist id="DataList1_Busqueda" runat="server">
...
<ItemTemplate>
...
<%# Container.DataItem("CURP")%>
...
<asp:DataGrid ID="DataGrid_Fechas" EnableViewState="False" Runat="server" ShowFooter="True" AutoGenerateColumns="false">
<Columns>
<asp:BoundColumn DataField="NO_AFIL" HeaderText="AFiliacion"></asp:BoundColumn>
</Columns>
</asp:DataGrid>
</ItemTemplate>
</asp:DataList>

Y el CodeBehind es:

Private Sub DataList1_Busqueda_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1_Busqueda.ItemCreated
DataGrid_Fecha = e.Item.FindControl("DataGrid_Fechas")
Dim Tabla_Fechas As DataTable = conection.dbAdapterr("SELECT * FROM ESTUDIO_EXTERNO")
If Tabla_Fechas.Rows.Count > 0 Then
DataGrid_Fechas.DataSource = Tabla_Fechas
DataGrid_Fechas.DataBind()
End If
End Sub


Ojala me pudieran ayudar... Gracias!

[CoRdELiA]

El código HTML es el mismo que habia enviado ya..

Este es el codeBehind

Private Sub DataList1_Busqueda_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList1_Busqueda.ItemCreated
Dim DataGrid_Fcha As New DataGrid()
Dim DataGrid_AFcha As New DataGrid()
Dim objeto, objeto2, i As Control
Dim where_DG As String
For Each i In DataList1_Busqueda.Controls
objeto = i.FindControl("DataGrid_Fechas")
If (Not objeto Is Nothing) Then
If Tabla_Busqueda.Rows.Count > 0 Then
where_DG = Get_DataTable(Tabla_Busqueda.Rows(count))
DataGrid_Fcha = CType(objeto, DataGrid)
Fill_DataGrid(DataGrid_Fcha, where_DG)
where_DG = ""
If count < Tabla_Busqueda.Rows.Count Then
count = count + 1
End If
End If
End If
Next
count = 0
End Sub