教复杂的数据求和

[zcg]

我用的数据源为Excel表,在该表中有多条记录需要求和后,自动形成一条汇总记录,如何实现?具体情况如下表:
字段名 编号 类别 凭证号 金额 税额 价税合计
数据 1 aa 1 120 20.4 140.40
2 aa 1 200 34 234
3 bb 2 300 51 351.00
4 bb 2 500 85 585
5 cc 3 100 17 117
6 cc 3 600 102 702
7 cc 3 800 136 936
8 dd 4 1000 170 1170
例如将上表汇总形成以下一张汇总表
编号 类别 凭证号 金额 税额 价税合计
1 aa 1 320 54.4 374.4
2 bb 2 800 136 936
3 cc 3 1500 255 1755
4 dd 4 1000 170 1170
本汇总表可形成后导入另一张数据表中,最好能在本表中完成操作.请给出详细代码(在程序中实现本操作.)
谢谢!各位高人,请指教.

[jinesc]

select 类别,凭证号,sum(金额) as 总金额，sum(税额) as 总税额，sum(价税合计) as 价税合计 from 表 group by 类别,凭证号


至于 EXCEL里怎么做 你还是 VBA问好

[射天狼]

先连接EXCEL，然后通过SQL语句求和，连接方式上这里找：

http://www.connectionstrings.com/

SQL语句如下：

Option Explicit

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
'读取
rs.Open "SELECT SUM(金额), SUM (税额), SUM (价税合计) FROM TABLENAME GROUP BY 编号, 类别", cn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Form_Load()
cn.ConnectionString = ""
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

[cwm545]

慢了，都被师兄们答玩了，顶下。