使用动态添加用户控件的EO.Web页面视图

Question

我使用的是essential对象中的tabstrip和multipage控件。我的目标是基于从数据库中检索到的数据集动态构建tabstrip和pageviews。

到目前为止，动态构建是有效的，但我在向每个页面视图添加一个用户控件时遇到了问题。

到目前为止这是我的代码。

    Dim dt As New DataTable()
    Dim ds As New DataSet()
    Dim dr As DataRow
    Dim ts As New EO.Web.TabStrip
    Dim mp As New EO.Web.MultiPage
    ts = tsProgramMenu
    mp = mpProgramMenu

    dt = bc.getGrantProgram(strConnection, strGrantProgramId, strActive)

    For Each dr In dt.Rows
        'MULTI PAGE PAGEVIEWS
        Dim p As New EO.Web.PageView
        p.ID = "pv" & dr.Item(1).ToString

        mp.PageViews.Add(p)
        'TOP ROW TAB ITEMS
        Dim x As New EO.Web.TabItem
        x.Text.Html = dr.Item(1).ToString
        x.ItemID = "ti" & dr.Item(1).ToString
        x.PageViewID = p.ID
        ts.TopGroup.Items.Add(x)

    Next

在页面源代码中，我可以看到正在创建的页面浏览量。

<table id="ctl00_MainContent_pvHMGP" border="0" cellpadding="0" cellspacing="0" style="display:none;">
    <tr>
        <td valign="top"></td>
    </tr>
</table>

我只是在将用户控件添加到页面视图时遇到了问题。感谢您的帮助！

Answer 1

如果其他人有问题，这就是对我有效的方法。

    Dim dt As New DataTable()
    Dim ds As New DataSet()
    Dim dr As DataRow
    Dim ts As New EO.Web.TabStrip
    Dim mp As New EO.Web.MultiPage
    ts = tsProgramMenu
    mp = mpProgramMenu

    dt = bc.getGrantProgram(strConnection, strGrantProgramId, strActive)

    For Each dr In dt.Rows
        'MULTI PAGE PAGEVIEWS
        Dim p As New EO.Web.PageView
        Dim uc As New UserControl
        Dim strUserControl As String

        strUserControl = dr.Item(1).ToString & ".ascx"
        uc.ID = "uc" & dr.Item(1).ToString
        p.ID = "pv" & dr.Item(1).ToString
        p.Controls.Add(Page.LoadControl(strUserControl))

        mp.PageViews.Add(p)
        'TOP ROW TAB ITEMS
        Dim x As New EO.Web.TabItem
        x.Text.Html = dr.Item(1).ToString
        x.ItemID = "ti" & dr.Item(1).ToString
        x.PageViewID = p.ID
        ts.TopGroup.Items.Add(x)

    Next