看看這個,會對你有幫助的:
<%@ Page Language="VB" AutoEventWireup="True" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
Dim Cnn as OleDbConnectionPrivate Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) 
    Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\nhonline\datagrid\web_article\testcodes\14_addingcontrolstodatagridfooteritem\data.mdb"
    Dim cnn As New OleDbConnection(connstr)
    Dim da As New OleDbDataAdapter("select top 5 * from products", cnn)
    Dim ds As New DataSet
    da.Fill(ds, "Products")
    DataGrid1.DataSource = ds
    DataGrid1.DataBind()
End SubFunction GetTotalPrice()
         Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\inetpub\wwwroot\nhonline\datagrid\web_article\testcodes\14_addingcontrolstodatagridfooteritem\data.mdb"
         Dim cnn As New OleDbConnection(connstr)
         'Dim TotalPrice as Integer
         Dim TotalPrice as double
 Dim CmdDataCount as OleDbCommand
 Cnn.Open()
 CmdDataCount = New OleDbCommand("SELECT SUM(unitprice) FROM products",Cnn)
 TotalPrice = CmdDataCount.ExecuteScalar()
 Cnn.Close
 Return (TotalPrice)
End FunctionPrivate Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
    If (e.Item.ItemType = ListItemType.Footer) Then
        e.Item.Cells(2).Text = "Total&nbsp;"
        e.Item.Cells(2).HorizontalAlign = HorizontalAlign.Right
        Dim oTextbox As New TextBox
        oTextbox.Width = New Unit(100, UnitType.Pixel)
        oTextbox.Text = GetTotalPrice()
        e.Item.Cells(3).Controls.Add(oTextbox)
    End If
End Sub</script>
<Form runat="server">
<asp:datagrid id="DataGrid1" 
              runat="server" 
  width="500px" 
  AllowPaging="False" 
              ItemStyle-CssClass="tableItem" 
  HeaderStyle-CssClass="tableHeader"
              HeaderStyle-BackColor="#aaaadd" 
  AutoGenerateColumns="False" 
              DataKeyField="ProductID" 
  ShowFooter="True" 
  BorderWidth="0"
  OnItemCreated="DataGrid1_ItemCreated"
  >
  <Columns>
       <asp:TemplateColumn headertext="Product ID">
            <ItemTemplate>
                     <asp:TextBox style="width:100px;" id="ProductID" runat="server" 
                     Text='<%# Container.DataItem("ProductID") %>' >
                     </asp:TextBox>
            </ItemTemplate>
       </asp:TemplateColumn>
       <asp:TemplateColumn headertext="Product Name">
            <ItemTemplate>
                     <asp:TextBox style="width:200px;" id="ProductName" runat="server"
  Text='<%# Container.DataItem("ProductName") %>' >
                    </asp:TextBox>
             </ItemTemplate>
       </asp:TemplateColumn>
       <asp:TemplateColumn headertext="Quantity" FooterStyle-HorizontalAlign=Right  >
              <ItemTemplate>
                    <asp:TextBox style="width:100px;" id="Quantity" runat="server" 
                            Text='<%# Container.DataItem("QuantityPerUnit") %>' >
                    </asp:TextBox>
               </ItemTemplate>
        </asp:TemplateColumn>
        <asp:TemplateColumn headertext="Product Price" ItemStyle-HorizontalAlign="Right">
                <ItemTemplate>
                     <asp:TextBox style="width:100px;" id="ProductPrice" runat="server"  
                     Text='<%# Container.DataItem("UnitPrice") %>' >
                     </asp:TextBox>       
                </ItemTemplate>
         </asp:TemplateColumn>          
  </Columns>        
 </asp:datagrid>
</Form>