access求和

玉树TMD临风

我做了一个查询，能列出所有两单或三单的组合，包括ID号，有个小问题，就是有些组合是重复的，暂时不知道怎么去掉，比如ID12,18,29合计5000远，29,12,18也是5000，结果都显示出来了来自: Android客户端

laomms

tzh1600 发表于 2014-1-17 18:51
不用,建立一个汇总查询做为数据源即可,原来的ID改用BILL

做了汇总查询后(比如：sql2)，里面的子项都是已经是按单号排序的汇总后的数据了，但是具体如何引进汇总后的数据，我直接用sql2替代原始的costmer表出错。

玉树TMD临风

这是查询语句代码，有些重复的不知道怎么去掉，你试试看
select * from (SELECT a.ID & "+" & b.ID & "+" & c.ID as id,a.strname,a.amount+b.amount+c.amount as amount
FROM Costmer a,costmer b,costmer c
where (a.id<>b.id and a.id<>c.id and b.id<>c.id) and (a.strname=b.strname and a.strname=c.strname and b.strname=c.strname)) z
where amount=5000


我只选取了３个单子，如果有２个单子你可以用union按这个思路再加一行代码

laomms

数据库中的144这两单其实是一单，金额是按单号分的，所以144的这单的金额实际是1200. 而且只能做为三单中的其中一单，所以统计前得先按单号汇总一下金额才能做为初步的数据。

laomms

汇总的问题还是解决不了！
目前用新建表然后删除的方法：
sql1 = "select BILL, strName, sum(amount) as 金额, IFPAID from [Costmer] where IFPAID like 'NotPaid' group by strName,BILL"
sql = " SELECT BILL,strName,金额,  IFPAID  INTO Costmer_bake FROM (" & sql1 & ")"
cnn.Execute (sql)
然后从新表Costmer_bake中选择数据
...


用完后删除
    sql = "DROP TABLE " & "Costmer_bake"
    cnn.Execute (sql)


但是数据库大小都会增的很大，每次得压缩一次。

tzh1600

laomms 发表于 2014-1-18 09:19
汇总的问题还是解决不了！
目前用新建表然后删除的方法：
sql1 = "select BILL, strName, sum(amount) as ...

看双数连续查询和三数连续查询,ACCESS建立查询就可以,不要建新表

laomms

tzh1600 发表于 2014-1-21 12:38
看双数连续查询和三数连续查询,ACCESS建立查询就可以,不要建新表

非常感谢tzh1600的帮助，但是我是想要在那个合计查询之前先汇总一下，然后再列出所有的三单记录。
我现在用新建表，然后删除的方法，不知道有没有其他办法。

1. Private Sub CommandButton1_Click()
   
2. Sheet1.Range("A1:L100").ClearContents
   
3. Dim sql1, sql2, sql
   
4. Dim sum, sName
   
5. cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;data Source=" & ThisWorkbook.Path & "\data.MDB "
   
6. sql1 = "select 销售清单号,公司名称,sum(销售金额) as 金额, 付款情况 from [XSD] where 付款情况 like 'NotPaid' group by 公司名称,销售清单号,付款情况"
   
7. sql = " SELECT 销售清单号,公司名称,金额,付款情况 INTO XSD_bake FROM (" & sql1 & ")"
   
8. cnn.Execute (sql)
   
9. sql = "SELECT XSD_bake.公司名称, XSD_bake.金额, A.金额, B.金额, C.金额, XSD_bake.金额 + A.金额+ B.金额+ C.金额 AS hj, XSD_bake.销售清单号, A.销售清单号, B.销售清单号, C.销售清单号, XSD_bake.付款情况 FROM ((XSD_bake INNER JOIN XSD_bake AS A ON XSD_bake.公司名称 = A.公司名称) INNER JOIN XSD_bake AS B ON A.公司名称 = B.公司名称) INNER JOIN XSD_bake AS C ON B.公司名称 = C.公司名称 WHERE (XSD_bake.金额 + A.金额 + B.金额+ C.金额 = 6000) And (A.销售清单号 > XSD_bake.销售清单号) And (B.销售清单号 > A.销售清单号) And (C.销售清单号 > B.销售清单号)  ORDER BY XSD_bake.公司名称, XSD_bake.销售清单号;"
   
10. rst.Open sql, cnn, adOpenKeyset, adLockOptimistic
    
11.     If rst.EOF = False Then
    
12.         For i = 1 To rst.RecordCount
    
13.               Sheet1.Cells(i, 1) = rst.Fields(0).Value
    
14.               Sheet1.Cells(i, 2) = rst.Fields(1).Value
    
15.               Sheet1.Cells(i, 3) = rst.Fields(2).Value
    
16.               Sheet1.Cells(i, 4) = rst.Fields(3).Value
    
17.               Sheet1.Cells(i, 5) = rst.Fields(4).Value
    
18.               Sheet1.Cells(i, 6) = rst.Fields(5).Value
    
19.               Sheet1.Cells(i, 7) = rst.Fields(6).Value
    
20.               Sheet1.Cells(i, 8) = rst.Fields(7).Value
    
21.               Sheet1.Cells(i, 9) = rst.Fields(8).Value
    
22.               Sheet1.Cells(i, 10) = rst.Fields(9).Value
    
23.               Sheet1.Cells(i, 11) = rst.Fields(10).Value
    
24.           rst.MoveNext
    
25.       Next i
    
26.   End If
    
27.   rst.Close: Set rst = Nothing
    
28.   sql = "DROP TABLE " & "XSD_bake"
    
29.   cnn.Execute (sql)
    
30.   cnn.Close: Set cnn = Nothing
    
31. End Sub

复制代码

tzh1600

laomms 发表于 2014-1-22 09:52
非常感谢tzh1600的帮助，但是我是想要在那个合计查询之前先汇总一下，然后再列出所有的三单记录。
我现 ...

肯定是要先汇总的,我的例子里的SumCostom查询就是

laomms

如果可以的话把37楼附件里的代码改下，改成不用在access中新建表的方法。

tzh1600

其实我的方法就是在ACCESS里建立汇总查询,然后以汇总后的查询为数据源,找出总额符合要求且连续的单子(也是通过建立查询的方式实现),实现的方法在我36楼的附件里都体现了