求助：SQl 查询并求

wxxydl

1.现要从“凭证”表中的“科目名称”列循环查找含 有大项目如“收入”且含 有小项目1如“商品猪”或含有小项目2（有的有，有的没有）的记录，并求“贷方”或者“借方”之和

2.收入类   求贷方之和   损益 、生产成本类求借方和

3.结果形式   如“统计表”和“报表”

4。我也做了一个   觉得太繁琐吧了  ，

vbee

参考一下数据透视表

amazeyeli

结构复杂了，查询就会更复杂，结构简单了，查询就会很简单
可百度1NF参考：https://baike.baidu.com/item/1NF

opiona

1.     Set SH0 = Sheets("统计项目")  '//条件表
   
2.     Set SH1 = Sheets("TEMP")
   
3.    
   
4.     Str组合条件 = ""
   
5.     For I = 2 To SH0.Range("B65536").End(3).Row
   
6.         Rem 含 有大项目如“收入”
   
7.         Str条件 = "InStr(科目名称, '" & SH0.Cells(I, 3).Value & "')> 0"
   
8.         
   
9.         Rem 包含关系
   
10.         If Len(SH0.Cells(I, 4).Value) > 0 Then
    
11.             If Len(SH0.Cells(I, 5).Value) > 0 Then
    
12.                 Rem 有小项目1如“商品猪”或含 有 小项目2
    
13.                 Str条件 = Str条件 & " AND InStr(科目名称, '" & SH0.Cells(I, 4).Value & "')+InStr(科目名称, '" & SH0.Cells(I, 5).Value & "')> 0"
    
14.             Else
    
15.                 Rem 只含 有 小项目1”
    
16.                 Str条件 = Str条件 & " AND InStr(科目名称, '" & SH0.Cells(I, 4).Value & "')> 0"
    
17.             End If
    
18.             
    
19.         Else
    
20.             If Len(SH0.Cells(I, 5).Value) > 0 Then
    
21.                 Rem 只含 有 小项目2”
    
22.                 Str条件 = Str条件 & " AND InStr(科目名称, '" & SH0.Cells(I, 5).Value & "')> 0"
    
23.             End If
    
24.         End If
    
25.         Rem 不包含关系
    
26.         If Len(SH0.Cells(I, 6).Value) > 0 Then
    
27.             If Len(SH0.Cells(I, 7).Value) > 0 Then
    
28.                 Rem 不包括项目1，也不包括项目2
    
29.                 Str条件 = Str条件 & " AND InStr(科目名称, '" & SH0.Cells(I, 6).Value & "')+InStr(科目名称, '" & SH0.Cells(I, 7).Value & "')= 0"
    
30.             Else
    
31.                 Rem 不包括项目1
    
32.                 Str条件 = Str条件 & " AND InStr(科目名称, '" & SH0.Cells(I, 6).Value & "')=0"
    
33.             End If
    
34.         Else
    
35.             If Len(SH0.Cells(I, 7).Value) > 0 Then
    
36.                 Rem 不包含 小项目2”
    
37.                 Str条件 = Str条件 & " AND InStr(科目名称, '" & SH0.Cells(I, 7).Value & "')=0"
    
38.             End If
    
39.         End If
    
40.         Rem 组合成一个条件
    
41.         If Str组合条件 = "" Then
    
42.             Str组合条件 = " WHERE (" & Str条件 & ")"
    
43.         Else
    
44.             Str组合条件 = Str组合条件 & " OR (" & Str条件 & ")"
    
45.         End If
    
46.     Next
    
47.    
    
48.     Rem 组合SQL语句
    
49.     StrSQL = ""
    
50.     StrSQL = StrSQL & "SELECT 科目名称,日期,凭证字号,摘要,贷方,借方"
    
51.     StrSQL = StrSQL & " FROM [凭证$]"
    
52.     StrSQL = StrSQL & Str组合条件

复制代码

opiona

天益模板.rar (49.96 KB, 下载次数: 4)

2018-6-17 11:22 上传

点击文件名下载附件

opiona

加入了：类别，小类别没心思弄了
快把自己弄晕了，考验啊！

天益模板.rar (50.68 KB, 下载次数: 5)

2018-6-17 12:38 上传

点击文件名下载附件

wxxydl

opiona 发表于 2018-6-17 12:38
加入了：类别，小类别没心思弄了
快把自己弄晕了，考验啊！

谢谢，我再看一下

wxxydl

vbee 发表于 2018-6-17 09:52
参考一下数据透视表

这种  用  数据透视表  怎么做？请教

zpy2

这种记录每一笔会计分录的时候，就按把每一笔进行分类，可能就比较好汇总了，也可以用数据透视表。

zpy2

反过来记录的时候没有考虑到怎么分类，再要进行分类的话就比较麻烦了。