SQL 在线等。急~~~

miffys1981

我有两张表。一张是汇总数据规则。 另一张是数据表。如下图
规则表

Banner	Regoin	Store_Type	team_channel
Abest	Hunan	HM
Abest	PRD
E-Mart	East		Top Retailer Channel
LH Super			Top Retailer Channel
Lotte-East	East	HM	Top Retailer Channel

数据表

Banner Name	Category	Sales	Regoin	Store_Type	team_channel
ABest	XXXXXX	316,215	Hunan	HM	Top 200
ABest	XXXXXX	40,151	Hunan	SM	Top 200
ABest	YYYYYY	23,877	Hunan	SM	Top 10
ABest	XXXXXX	88,100	PRD	SM	Top 10
ABest	XXXXXX	1,306,860	PRD	HM	Top 10
ABest	YYYYYY	96,476	Shenzhen	SM	Top 10
ABest	YYYYYY	106,651	外区	HM	Top 10
E-mart	XXXXXX	1,306,860	East	HM	Top Retailer Channel
E-mart	YYYYYY	96,476	East	SM	Top Retailer Channel
E-mart	YYYYYY	106,651	East	HM	Top 10
E-mart	ZZZZZZ	162,282	North	HM	Top 10
Lotte-East	XXXXXX	1,306,860	East	HM	Top Retailer Channel
Lotte-East	YYYYYY	96,476	East	SM	Top Retailer Channel
Lotte-East	YYYYYY	106,651	East	HM	Top 10
Lotte-East	ZZZZZZ	162,282	North	HM	Top 10
LH super	YYYYYY	96,476	East	SM	Top Retailer Channel
LH super	YYYYYY	106,651	East	HM	Top 10

现在我想把数据表里。符合规则的数据汇总起来。例：对于abest 它的regoin为Hunan. store_type为HM。不管是什么team_channel，sales全都加起来。对于abest 它的regoin为PRD，不管是什么store_type，team_channel，sales全都加起来。以此类推。按规则汇总成下面的格式 。 在access里。SQL要怎么写法

	Sales
Abest	???
E-Mart	???
LH Super	???
Lotte-East	???

access.rar (12.27 KB, 下载次数: 4)

2012-3-22 12:03 上传

点击文件名下载附件

miffys1981

高手快来呀

dhslxx

在两个表中都增加一个计算字段，这个字段的内容是3个规则字段内容的合并。然后按Banner
和这个计算字段分组汇总就可以了。

鱼求雨

建一内连接分组查询

ASLXT

不理解“以此类推”是什么意思？
是只取规则中列出的数据？

ASLXT

如果只取规则中指定的数据（假设规则不再新增、更改），就分别建立5个查询，每个查询对应一个规则，然后联合起来就行了。
你的规则明明把abest分成了两种情况，结果又只有一行，我困惑...
假如规则可以另外新增或更改，要用到代码生成n个查询，然后再联合为一个查询才能得到结果。

ASLXT

access.rar (22.87 KB, 下载次数: 5)

2012-3-25 11:06 上传

点击文件名下载附件

动态规则的情况下，新建一个窗体，添加按钮，按钮事件代码如下
Private Sub Command0_Click()
  Dim Rec As ADODB.Recordset
  Dim i As Integer
  Dim j As Integer
  Dim StrWhere
  Dim StrSql
  Dim qdf As QueryDef
  Dim cxn
  Set Rec = New ADODB.Recordset
  On Error Resume Next
  Rec.Open "select * from 汇总规则", CurrentProject.Connection, adOpenStatic, adLockReadOnly
  For i = 1 To Rec.RecordCount
    For j = 0 To Rec.Fields.Count - 1
      If Len(Rec.Fields(j)) > 0 Then
        StrWhere = StrWhere & " AND " & Rec.Fields(j).Name & "='" & Rec.Fields(j) & "'"
      End If
    Next j
    StrWhere = Mid(StrWhere, 6, Len(StrWhere))
    StrSql = "SELECT Sales.Banner_Name, Sum(Sales.Sales) AS Sales之总计 FROM Sales WHERE " & StrWhere & " GROUP BY Sales.[Banner_Name]"
    'Debug.Print StrSql
    cxn = "临时" & i
    CurrentDb.QueryDefs.Delete cxn
    Set qdf = CurrentDb.CreateQueryDef(cxn, StrSql)
    StrSql = ""
    StrWhere = ""
    Rec.MoveNext
  Next i
  For i = 1 To Rec.RecordCount
    StrSql = StrSql & " union select * from " & "临时" & i
  Next i
  StrSql = Mid(StrSql, 8, Len(StrSql))
  CurrentDb.QueryDefs.Delete "汇总"
  Set qdf = CurrentDb.CreateQueryDef("汇总", StrSql)
  DoCmd.OpenQuery "汇总"
End Sub

miffys1981

ASLXT 发表于 2012-3-25 11:06
动态规则的情况下，新建一个窗体，添加按钮，按钮事件代码如下
Private Sub Command0_Click()
  Dim Re ...

我明白你什么意思了。对于每一条规则。做一个的查询。然后最后把这些查询里的数据合并起来。

这不能做成一个查询吗。这样会导致有几条规则出现几条查询。

miffys1981

ASLXT 发表于 2012-3-25 10:08
如果只取规则中指定的数据（假设规则不再新增、更改），就分别建立5个查询，每个查询对应一个规则，然后联合 ...

对于abest我只要Abest regoin为Hunan store type为HM 以及regoin为 PRD这两种情况的sales之合。
　


　

Abest
PRD