formview.aspx.vb

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

Option Explicit On
'Enable late binding of fvOrders.DataItem
Option Strict Off

Partial Class FormView
    Inherits System.Web.UI.Page
    Protected Sub fvOrders_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles fvOrders.DataBound
        'Add default values for null ShippedDate, ShipRegion, and ShipPostalCode
        'Disable deletion of shipped orders
        Dim strUpdateCmd As String = dsFormView.UpdateCommand
        Try
            If IsDBNull(Me.fvOrders.DataItem("ShippedDate")) Then
                Dim lblDate As Label = CType(fvOrders.FindControl("ShippedDateLabel"), Label)
                If Not lblDate Is Nothing Then
                    lblDate.Text = "Pending"
                End If
                'Enable deletion of orders not shipped
                Dim btnDelete As Button = CType(fvOrders.FindControl("btnDelete"), Button)
                If Not btnDelete Is Nothing Then
                    btnDelete.Enabled = True
                End If
                'Temporary workaround for null date problem
                Dim txtDate As TextBox = CType(fvOrders.FindControl("ShippedDateTextBox"), TextBox)
                If Not txtDate Is Nothing Then
                    txtDate.Text = "1/1/2099"
                End If
            Else
                'Disable deletion of shipped orders
                Dim btnDelete As Button = CType(fvOrders.FindControl("btnDelete"), Button)
                If Not btnDelete Is Nothing Then
                    'Temporary for null date workaround
                    Dim lblDate As Label = CType(fvOrders.FindControl("ShippedDateLabel"), Label)
                    If lblDate.Text = "Pending" Then
                        btnDelete.Enabled = True
                    Else
                        btnDelete.Enabled = False
                    End If
                End If
            End If
            If IsDBNull(fvOrders.DataItem("ShipRegion")) Then
                Dim lblRegion As Label = CType(fvOrders.FindControl("ShipRegionLabel"), Label)
                If Not lblRegion Is Nothing Then
                    lblRegion.Text = "<Empty>"
                End If
            End If
            If IsDBNull(fvOrders.DataItem("ShipPostalCode")) Then
                'Applies to Ireland only
                Dim lblCode As Label = CType(fvOrders.FindControl("ShipPostalCodeLabel"), Label)
                If Not lblCode Is Nothing Then
                    lblCode.Text = "<Empty>"
                End If
            End If
        Catch exc As Exception
            'Ignore for now
        End Try
    End Sub

    Protected Sub dsFormView_Deleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs) Handles dsFormView.Deleting
        'Test for Order Details records

    End Sub

    Protected Sub dsFormView_Updating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs) Handles dsFormView.Updating
        'Substitute NULL for 1/1/20599
        If e.Command.Parameters("@ShippedDate").Value.ToString.Contains("1/1/2099") Then
            e.Command.Parameters("@ShippedDate").Value = DBNull.Value
        End If
    End Sub

End Class