datagrid 页角的使用

Question

Imports System.Data.SqlClient
Public Class showtotal
    Inherits System.Web.UI.Page
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region
    Protected connection1 As connection
    Private total As Double = 0
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not Page.IsPostBack Then
            bindgrid()
        End If
    End Sub
    Sub bindgrid()
        Dim cn As SqlConnection = New SqlConnection(connection1.connstr)
        Dim da As SqlDataAdapter = New SqlDataAdapter("select top 10 customerid,freight from orders", cn)
        Dim ds As New DataSet()
        da.Fill(ds)
        DataGrid1.DataSource = ds
        DataGrid1.DataBind()    End Sub    Sub calctotal(ByVal lz As String)
        Try
            total += Double.Parse(lz)
        Catch        End Try
    End Sub    Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
        If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then
            calctotal(e.Item.Cells(1).Text)
            e.Item.Cells(1).Text = String.Format("{0:c}", Convert.ToDouble(e.Item.Cells(1).Text))
        ElseIf e.Item.ItemType = ListItemType.Footer Then
            e.Item.Cells(0).Text = "合计"
            e.Item.Cells(1).Text = String.Format("{0:c}", total)
        End If       
    End Sub
End Class