循环相加即可
成都创新互联提供高防物理服务器租用、云服务器、香港服务器、四川服务器托管等
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("消费金额：" sum)
End Sub
不知道你是怎么百度的，你的百度关键词应当选择“VB 统计多个excel文件中的数据”。
1、数据透视表是用于在excel中不通过编程就实现汇总数据的目的，既然你都想编程了，数据透视表也就失去意义。
2、ACCESS更是无稽之谈，多此一举。
3、Excel文件不管多少，最重要的是每个文件要有统一的格式，这样就有了编程的前提。
实现方法是：
1、让程序能找到所有excel文件
2、用子过程读取每一个文件，获得所需要的数据，进行汇总
3、所有数据进行汇总，得到结果。
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 支出时间 like '" TextBox1.Text "%' ", cn)
Dim db As New DataTable
adp.Fill(db)
TextBox2.Text = db.Rows(0).Item("支出金额")
需要为你提供一份适用于初学者的[vb.net数据统计系统]代码么,
进一步要求可以联系我们,,联系我们需要提供你的问题和电子邮件,有机会可以帮你，绝对救急,请用BaiduHi为我留言,
此回复针对所有来访者和需求者有效,
ES:F6E0FEAC558E90FB7D14E2AD022C0DD7
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)
我写的可以，你可以把代码贴出来看看
加一个按钮，代码如下：
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 '声明并实例化数据库连接对象
Dim myadpt As New OleDbDataAdapter '声明并实例化数据适配器对象
Dim myds As New DataSet '声明并实例化记录集对象
Dim myConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\DB\SJ.mdb" '数据库连接字符串
myConn.ConnectionString = myConnection '设置数据库连接对象的数据库连接字符串属性
myConn.Open() '启动数据库连接
myadpt.SelectCommand = New OleDbCommand '声明数据适配器的查询命令对象
myadpt.SelectCommand.CommandText = "select sum(支出金额) as 支出金额 from zcb where 支出时间 like '" Text1.Text "%' " '给数据适配器的查询命令属性赋值
myadpt.SelectCommand.Connection = myConn '设置据适配器与数据库连接对象的连接
myadpt.Fill(myds)
Text13.Text = myds.Tables(0).Rows(0)("支出金额")
End Sub
End Class
