reports.aspx.vb

数据库学习的绝好例子简单的数据库经典入门

Partial Class Reports
    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
            'Load the week ending dates in the form
            Dim objDates As New Dates
            cboWeekEndingDate.Items.Add(objDates.GetPreviousWeekEndingDate)
            cboWeekEndingDate.Items.Add(objDates.GetCurrentWeekEndingDate)
            cboWeekEndingDate.SelectedIndex = 1
        End If
    End Sub
End Class