finaldatalist.aspx.vb

wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重推荐,电子书,电子书下载

Partial Class FinalDataList
    Inherits System.Web.UI.Page

    Public Sub ddlOrderID_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        'Select the OrderID in the list
        dlOrders.SelectedIndex = ddlOrderID.SelectedIndex
        txtCustomerID.Text = ""
        If Not dlOrders.SelectedItem Is Nothing Then
            Dim lblCustomerID As Label = CType(dlOrders.SelectedItem.FindControl("CustomerIDLabel"), Label)
            txtCustomerID.Text = lblCustomerID.Text
        End If
    End Sub

    Public Sub ddlCountry_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlCountry.SelectedIndexChanged
        txtCustomerID.Text = ""
        dlOrders.SelectedIndex = 0
    End Sub

    Public Sub ddlOrderID_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlOrderID.DataBound
        If Not dlOrders.SelectedItem Is Nothing Then
            'Dim lblCustomerID As Label = CType(dlOrders.SelectedItem.FindControl("CustomerIDLabel"), Label)
            'txtCustomerID.Text = lblCustomerID.Text
        End If
    End Sub

End Class