vb.net中怎么對(duì)listview字段中的數(shù)據(jù)進(jìn)行求和

循環(huán)相加即可

成都創(chuàng)新互聯(lián)提供高防物理服務(wù)器租用、云服務(wù)器、香港服務(wù)器、四川服務(wù)器托管等

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?sum?As?Double?=?0

For?i?=?0?To?ListView1.Items.Count?-?1?'

sum?+=?Val(ListView1.Items(i).SubItems(2).Text)

Next

MsgBox("消費(fèi)金額："??sum)

End?Sub

需要統(tǒng)計(jì)多個(gè)excel文件中的數(shù)據(jù)，想使用Vb.net(vs2010)來(lái)變成實(shí)現(xiàn)，如何實(shí)現(xiàn)

不知道你是怎么百度的，你的百度關(guān)鍵詞應(yīng)當(dāng)選擇“VB 統(tǒng)計(jì)多個(gè)excel文件中的數(shù)據(jù)”。

1、數(shù)據(jù)透視表是用于在excel中不通過(guò)編程就實(shí)現(xiàn)匯總數(shù)據(jù)的目的，既然你都想編程了，數(shù)據(jù)透視表也就失去意義。

2、ACCESS更是無(wú)稽之談，多此一舉。

3、Excel文件不管多少，最重要的是每個(gè)文件要有統(tǒng)一的格式，這樣就有了編程的前提。

實(shí)現(xiàn)方法是：

1、讓程序能找到所有excel文件

2、用子過(guò)程讀取每一個(gè)文件，獲得所需要的數(shù)據(jù)，進(jìn)行匯總

3、所有數(shù)據(jù)進(jìn)行匯總，得到結(jié)果。

VB.NET數(shù)據(jù)統(tǒng)計(jì)

Dim?cn?As?New?OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data?Source="??Application.StartupPath??"\DB\SJ.mdb;?Persist?Security?Info=False;Jet?OLEDB:database?password=25991908")

Dim?adp?As?New?OleDb.OleDbDataAdapter("select?sum(支出金額)?as?支出金額?from?zcb?where?支出時(shí)間?like?'"??TextBox1.Text??"%'?",?cn)

Dim?db?As?New?DataTable

adp.Fill(db)

TextBox2.Text?=?db.Rows(0).Item("支出金額")

在vb.net系統(tǒng)中怎么做數(shù)據(jù)的統(tǒng)計(jì)

需要為你提供一份適用于初學(xué)者的[vb.net數(shù)據(jù)統(tǒng)計(jì)系統(tǒng)]代碼么,

進(jìn)一步要求可以聯(lián)系我們,,聯(lián)系我們需要提供你的問題和電子郵件,有機(jī)會(huì)可以幫你，絕對(duì)救急,請(qǐng)用BaiduHi為我留言,

此回復(fù)針對(duì)所有來(lái)訪者和需求者有效,

ES:F6E0FEAC558E90FB7D14E2AD022C0DD7

vb.net中 listbox內(nèi)所有數(shù)據(jù)的和

Dim?a(14)?As?Integer

For?i?=?1?To?14

a(i)?=?Int(Rnd()?*?90)?+?10

ListBox1.Items.Add(a(i))

Next

Dim?b(14)?As?Integer

Dim?sum?As?Integer?=?0

For?i?=?1?To?14

b(i)?=?ListBox1.Items.Item(i?-?1)

sum?=?sum?+?b(i)

Next

Dim?avg?As?Double

avg?=?sum?/?14

MsgBox(avg)

我寫的可以，你可以把代碼貼出來(lái)看看

vb.net 統(tǒng)計(jì)時(shí)間段內(nèi)數(shù)據(jù)庫(kù)字段金額和

加一個(gè)按鈕，代碼如下：

Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myConn As OleDbConnection = New OleDbConnection '聲明并實(shí)例化數(shù)據(jù)庫(kù)連接對(duì)象

Dim myadpt As New OleDbDataAdapter '聲明并實(shí)例化數(shù)據(jù)適配器對(duì)象

Dim myds As New DataSet '聲明并實(shí)例化記錄集對(duì)象

Dim myConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\DB\SJ.mdb" '數(shù)據(jù)庫(kù)連接字符串

myConn.ConnectionString = myConnection '設(shè)置數(shù)據(jù)庫(kù)連接對(duì)象的數(shù)據(jù)庫(kù)連接字符串屬性

myConn.Open() '啟動(dòng)數(shù)據(jù)庫(kù)連接

myadpt.SelectCommand = New OleDbCommand '聲明數(shù)據(jù)適配器的查詢命令對(duì)象

myadpt.SelectCommand.CommandText = "select sum(支出金額) as 支出金額 from zcb where 支出時(shí)間 like '" Text1.Text "%' " '給數(shù)據(jù)適配器的查詢命令屬性賦值

myadpt.SelectCommand.Connection = myConn '設(shè)置據(jù)適配器與數(shù)據(jù)庫(kù)連接對(duì)象的連接

myadpt.Fill(myds)

Text13.Text = myds.Tables(0).Rows(0)("支出金額")

End Sub

End Class