在datagrid中求和（vb.net,c#)

zoukankan html css js c++ java

在datagrid中求和（vb.net,c#)

aspx文件

<%@ Page Inherits="myApp.calcTotals" Src="" %>

<html>
<body bgcolor="white">
<asp:DataGrid id="MyGrid" runat="server"
  AutoGenerateColumns="False"
  CellPadding="4" CellSpacing="0"
  BorderStyle="Solid" BorderWidth="1"
  Gridlines="None" BorderColor="Black"
  ItemStyle-Font-Name="Verdana"
  ItemStyle-Font-Size="9pt"
  HeaderStyle-Font-Name="Verdana"
  HeaderStyle-Font-Size="10pt"
  HeaderStyle-Font-Bold="True"
  HeaderStyle-ForeColor="White"
  HeaderStyle-BackColor="Blue"
  FooterStyle-Font-Name="Verdana"
  FooterStyle-Font-Size="10pt"
  FooterStyle-Font-Bold="True"
  FooterStyle-ForeColor="White"
  FooterStyle-BackColor="Blue"
  OnItemDataBound="MyDataGrid_ItemDataBound"
  ShowFooter="True">

  <Columns>
    <asp:BoundColumn HeaderText="Title" DataField="title" />
    <asp:BoundColumn HeaderText="Price" DataField="price"
      ItemStyle-HorizontalAlign="Right"
      HeaderStyle-HorizontalAlign="Center" />
  </Columns>
</asp:DataGrid>
</body>
</html>
下面给出vb.net和C#两种代码
vb.net

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Data
Imports System.Data.SqlClient

Namespace myAppNamespace myApp

  Public Class calcTotalsClass calcTotals : Inherits Page

    Protected MyGrid As DataGrid
    Private runningTotal As double = 0

'定义合计变量
    Private Sub CalcTotal()Sub CalcTotal(_price As String)
'求和
      Try
        runningTotal += Double.Parse(_price)
      Catch
        ' 空值
      End Try
    End Sub

    Public Sub MyDataGrid_ItemDataBound()Sub MyDataGrid_ItemDataBound(sender As Object, e As DataGridItemEventArgs)

      If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem 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 )

        e.Item.Cells(0).Text="Total"
        e.Item.Cells(1).Text = string.Format("{0:c}", runningTotal)
      End If
    End Sub

    Protected Sub Page_Load()Sub Page_Load(sender As object, e As EventArgs)

      Dim myConnection As New SqlConnection("server=Localhost;database=pubs;uid=sa;pwd=")
      Dim myCommand As New SqlCommand("SELECT title, price FROM Titles WHERE price > 0", myConnection)

      Try

        myConnection.Open()
        MyGrid.DataSource = myCommand.ExecuteReader()
        MyGrid.DataBind()
        myConnection.Close()

      Catch ex As Exception

        ' 有错误发生
        HttpContext.Current.Response.Write(ex.ToString())
      End Try
    End Sub
  End Class
End Namespace

C#道理和vb.net是一样的就多做解释了

using System;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using System.Data;
using System.Data.SqlClient;

namespace myApp
{
  public class calcTotals : Page
  {
    protected DataGrid MyGrid;
    private double runningTotal = 0;

    private void CalcTotal(string _price)
    {
      try
      {
        runningTotal += Double.Parse(_price);
      }
      catch
      {
      }
    }

    public void MyDataGrid_ItemDataBound(object sender, DataGridItemEventArgs e)
    {
      if (e.Item.ItemType == ListItemType.Item || e.Item.ItemType == ListItemType.AlternatingItem)
      {
        CalcTotal( e.Item.Cells[1].Text );
        e.Item.Cells[1].Text = string.Format("{0:c}", Convert.ToDouble(e.Item.Cells[1].Text));
      }
      else if(e.Item.ItemType == ListItemType.Footer )
      {
        e.Item.Cells[0].Text="Total";
        e.Item.Cells[1].Text = string.Format("{0:c}", runningTotal);
      }
    }

    protected void Page_Load(object sender, EventArgs e)
    {
      SqlConnection myConnection = new SqlConnection("server=Localhost;database=pubs;uid=sa;pwd=;");
      SqlCommand myCommand = new SqlCommand("SELECT title, price FROM Titles WHERE price > 0", myConnection);

      try
      {
        myConnection.Open();
        MyGrid.DataSource = myCommand.ExecuteReader();
        MyGrid.DataBind();
        myConnection.Close();
      }
      catch(Exception ex)
      {
        HttpContext.Current.Response.Write(ex.ToString());
      }
    }
  }
}

查看全文

相关阅读:
Linux中split大文件分割和cat合并文件
 linux 之oracle静默安装
 linux查看文件的编码格式的方法 set fileencoding
cat file | while read line的问题
 LINUX增加SWAP分区---install_oracle
分布式系统---负载均衡、同步
 oracle常用命令
 Oracle中三种循环(For、While、Loop)
PRD产品需求文档
 App界面交互设计规范

原文地址：https://www.cnblogs.com/huang/p/318176.html