Vb.net DotNetNuke部分类控件

我正在使用DotNetNuke并创建一个ASCX调用TutorialsAll.ASCX和另一个调用TutorialsByLevel.ASCX。TutorialsByLevel.ascx目前在TutorialsAll.ascx中使用了4次

在TutorialsByLevels.ascx中，我有一个公共属性

TutorialTypeID

，它从TutorialsAll.ascx开始激发

我在下面添加的代码是任何人都有任何想法为什么不，以及我如何使其工作，非常感谢

TutorialsAll.ascx:

Partial Class Portals_0_open_TutorialsByLevel
Inherits System.Web.UI.UserControl

Dim _Type As Integer

Public Property TutorialType(ByVal TypeID As Integer) As Integer
    Get
        Return _Type
    End Get
    Set(ByVal value As Integer)
        _Type = value
    End Set
End Property

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ToString)
    conn.Open()

    Dim sql As String = "SELECT * FROM Prez_Stories WHERE Tut_Show = 1 AND Tut_Level = " & _Type & "ORDER BY Tut_Order"
    Dim sqlCmd As SqlCommand = New SqlCommand(sql, conn)
    Dim myReader As SqlDataReader
    myReader = sqlCmd.ExecuteReader

    Dim s As StringBuilder = New StringBuilder("")

    s.Append("<div=""tutorialBlock"">TutorialType = " & _Type)
    Do While myReader.Read
        s.Append("<div id=""newTutorial"">" & myReader("Title"), "<br/>" & myReader("Summary") & "<div>")
    Loop
    s.Append("</div>")

    Literal1.Text = s.ToString
End Sub
End Class

TutorialsByLevel.ascx:

Partial Class Portals_0_open_TutorialsByLevel
Inherits System.Web.UI.UserControl

Dim _Type As Integer

Public Property TutorialType(ByVal TypeID As Integer) As Integer
    Get
        Return _Type
    End Get
    Set(ByVal value As Integer)
        _Type = value
    End Set
End Property

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim conn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("SiteSqlServer").ToString)
    conn.Open()

    Dim sql As String = "SELECT * FROM Prez_Stories WHERE Tut_Show = 1 AND Tut_Level = " & _Type & "ORDER BY Tut_Order"
    Dim sqlCmd As SqlCommand = New SqlCommand(sql, conn)
    Dim myReader As SqlDataReader
    myReader = sqlCmd.ExecuteReader

    Dim s As StringBuilder = New StringBuilder("")

    s.Append("<div=""tutorialBlock"">TutorialType = " & _Type)
    Do While myReader.Read
        s.Append("<div id=""newTutorial"">" & myReader("Title"), "<br/>" & myReader("Summary") & "<div>")
    Loop
    s.Append("</div>")

    Literal1.Text = s.ToString
End Sub
End Class

部分类门户\u 0\u打开\u教程BYLEVEL
继承System.Web.UI.UserControl
Dim\u类型为整数
公共属性TutorialType（ByVal TypeID为整数）为整数
得到
返回类型
结束
设置（ByVal值为整数）
_类型=值
端集
端属性
受保护的子页加载（ByVal sender作为对象，ByVal e作为System.EventArgs）处理Me.Load
Dim conn As SqlConnection=新的SqlConnection（ConfigurationManager.ConnectionString（“SiteSqlServer”）.ToString）
康涅狄格州公开赛
Dim sql As String=“从Tut_Show=1和Tut_Level=“&_Type&”按Tut_顺序排序”的Prez_故事中选择*”
Dim sqlCmd As SqlCommand=新SqlCommand（sql，conn）
将myReader设置为SqlDataReader
myReader=sqlCmd.ExecuteReader
尺寸s为StringBuilder=新StringBuilder（“”）
s、 追加（“TutorialType=“&_Type”）
读一读我的读者
s、 追加（“&myReader（“标题”），”
“&myReader（“摘要”）和“）
环
s、 附加（“”）
Literal1.Text=s.ToString
端接头
末级

标记

试图记住，但我认为您可能必须将页面加载代码移动到prerender事件。如果我没记错的话（自从我参与一个项目以来已经有一段时间了），该属性在页面周期中填充得太晚，无法在您必须在预呈现中处理的页面加载中工作

---

我可能错了------:）

很抱歉错过了TutorialsAll.ascx页面。呵呵，欢迎来到苏。请注意，您可以随时编辑自己的问题以改进它（这也可能会影响您的问题）。但从课文中还不清楚：你的确切问题是什么？当时我想尝试一些新的东西，但它太令人沮丧，无法整理，于是又回到了传统的方法