studyrepeater.aspx.vb

来自「该文件包括了WEB标单控件应用的所有实例代码」· VB 代码 · 共 42 行


Partial Class studyRepeater
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Repeater1.DataSource = CreateDataSource()
            Repeater1.DataBind()

            Repeater2.DataSource = CreateDataSource()
            Repeater2.DataBind()
        End If
    End Sub

    Function CreateDataSource() As ICollection
        Dim dt As Data.DataTable
        dt = New Data.DataTable()
        Dim dr As Data.DataRow

        dt.Columns.Add(New Data.DataColumn("Company", Type.GetType("System.String")))
        dt.Columns.Add(New Data.DataColumn("Web Site", Type.GetType("System.String")))

        dr = dt.NewRow()
        dr(0) = "Microsoft"
        dr(1) = "~/studyPanel1.aspx"
        dt.Rows.Add(dr)

        dr = dt.NewRow()
        dr(0) = "IBM"
        dr(1) = "~/studyPanel2.aspx"
        dt.Rows.Add(dr)

        dr = dt.NewRow()
        dr(0) = "Oracle"
        dr(1) = "~/studyImage.aspx"
        dt.Rows.Add(dr)

        Dim dv As Data.DataView
        dv = New Data.DataView(dt)
        CreateDataSource = dv
    End Function
End Class