赵刚老师《Access经典用变量条件分类汇总数据库》推荐网友们学习

望江婷

你好赵老师，我将分类汇总的结果在加了个汇总小计，代码不对呢，烦劳赵老师看看，谢谢
新建文件夹.rar (43.28 KB, 下载次数: 9)

2011-3-12 09:47 上传

点击文件名下载附件

zhaogang1960

原帖由 望江婷 于 2011-3-12 09:47 发表
你好赵老师，我将分类汇总的结果在加了个汇总小计，代码不对呢，烦劳赵老师看看，谢谢
886942

Private Sub CommandButton19_Click()
    Dim i%, arr, sql As String

    For i = 1 To 4
        If Len(Controls("ComboBox" & i).Value) Then s = s & " and " & Controls("Label" & i).Caption & "='" & Controls("ComboBox" & i).Value & "'"
    Next
   
    If s = "" Then Exit Sub
   
    sql1 = "select 年份,null,项目名称,施工单位,费用类别,费用明细,sum(金额) from 费用汇总单 where " & Mid(s, 6) & " group by 年份,项目名称,施工单位,费用类别,费用明细"
   
   '--------------------------------下面这句求和怎么写呢？
'    sql2 = sql1 & " '小计',null,null,null,null,null,sum(金额)from 费用汇总单"
    sql2 = "select '小计',null,null,null,null,null,sum(金额) from 费用汇总单 where " & Mid(s, 6)
  '-----------------------------------------------------
   
    sql = sql1 & " union all " & sql2
   
   
    Sheets("查询").[a3:h65536] = ""
    Sheets("查询").[b3].CopyFromRecordset cnn.Execute(sql)
   

  
End Sub

zhaogang1960

附件
新建文件夹.rar (41.65 KB, 下载次数: 74)

2011-3-12 10:07 上传

点击文件名下载附件

望江婷

呵呵谢谢赵老师，你出手真快呢

gzdfcsg

你好，老师，按单位进行汇总这样改，就是按dd,cc 单位金额进行汇总合计，类似于按类别求余额

[ 本帖最后由 gzdfcsg 于 2011-3-12 15:54 编辑 ]