Dim sql,ex1,ex2,filter as string
Filter ="" '你的条件
ex1 = "Round(DateDiff('m',MAX(消费日期),GetDate()),0)"
ex2 = vbcrlf & "(Case" & vbcrlf
ex2+ ="When " & ex1 & "< 3 Then '五星级活跃'" & vbcrlf
ex2+ ="When " & ex1 & ">= 3 and " & ex1 & " < 6 Then '三星级活跃'" & vbcrlf
ex2+= "Else '不活跃'" & vbcrlf
ex2+="End) As 活跃级别 "
'
If Filter > "" Then
sql = "select * from (select 归属门店代号,VIP卡号,MAX(消费日期) As 最后购买日期," & ex1 & " As 几个月没来买,ex2 & FROM "
sql+="(rjsytVIP消费信息 LEFT JOIN rjsytVIP基本信息 ON (卡号 = VIP卡号 )) GROUP BY VIP卡号, 归属门店代号) as a Where " & Filter
DataTables("VIP行为信息_VIP行为信息").Fill(sql,"VIP数据", True)
End If
[此贴子已经被作者于2014-3-21 12:45:47编辑过]
加好友 
发短信
Post By：2014/3/20 23:32:00 [显示全部帖子]
