zoukankan
html css js c++ java
在datagrid中求和(vb.net,c#)
aspx文件
<%
@ Page Inherits
=
"
myApp.calcTotals
"
Src
=
""
%>
<!--
自己改一下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"
>
<!--
在footer中显示合计
-->
<
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 myApp
Namespace
myApp
Public
Class calcTotals
Class
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());
}
}
}
}
查看全文
相关阅读:
可遇不可求的Question之无法加载 DLL
可遇不可求的Question之mysql odbc 5.1 driver 指定驱动程序无法加载
可遇不可求的Question之Got error 127 from table handler
可遇不可求的Question之Odbc与MYSQLCLIENT转码机制探讨
【转】Task Scheduler Managed Wrapper: 由程式來排程工作
可遇不可求的Question之update from 语法
【转】Long Time Operations in ASP.NET
可遇不可求的Question之System.TypeLoadException错误
浅谈Asp.Net中涉及到的四个TimeOut属性
4月2号
原文地址:https://www.cnblogs.com/huang/p/318176.html
最新文章
关于Windows XP sp2 中的防火墙对TCP连接的限制(zt)
在线对比.net 1.1 和2.0
vs工具站点
完成工作流的前期准备,就要正式开发了
奇怪的正则表达式!不知道是bug,还是我有所不知。
开始研究微软的.net企业开发库
asp.net错误处理机制(zt)
arguments
iebug
POJ 3264
热门文章
POJ 2942
POJ 3352
堆积物
POJ 2777
POJ 1985
POJ 2528
POJ 1151
POJ 3468
POJ 1192
可遇不可求的Question之Fatal error encountered during command execution.
Copyright © 2011-2022 走看看