主题：fill 加载表动态增加列并计算

各位老师好，

我有一个窗口，其中有一个 查询 按钮，用 fill 方式有条件地加载查询表，比如：

要怎么实现呢？

太棒了，我不仅会计算到有几天，也能计算到有几个月没来了。谢谢有点酸老师，终于可以灵活应用一点。。。

谢谢 don 老师，我用的是DateYMD ,后面测试不能进行加载，用你的这个可以加载。

If Filter > "" Then
sql = "select * from (select 归属门店代号,VIP卡号,MAX(消费日期) As 最后购买日期,DateDiff(m,MAX(消费日期),GetDate()) As 几个月没来买 FROM "
sql+="(rjsytVIP消费信息  LEFT JOIN rjsytVIP基本信息 ON (卡号 = VIP卡号 )) GROUP BY  VIP卡号, 归属门店代号) as a Where " & Filter
MessageBox.Show(sql)
DataTables("VIP行为信息_VIP行为信息").Fill(sql,"VIP数据", True)
End If

现在有一个问题，我想实现这样：

在算出来的【几个月没来】的基础上，再增加一列【活跃级别】，进行赋值，比如3个月内来过的，就叫做“五星级活跃”，3个月外6个月内来过的叫做“三星级活跃”，6个月以上没来的，叫做“不活跃”

不知道往哪个方向去思考。。

没有成功，调试了一下，结果如下，不知道哪里错误了：

---------------------------

---------------------------

End) As 活跃级别 
---------------------------
确定  
---------------------------

---------------------------

---------------------------
select * from (select 归属门店代号,VIP卡号,MAX(消费日期) As 最后购买日期,Round(DateDiff( 'm',MAX(消费日期),GetDate()),0) As 几个月没来买,ex2 & FROM (rjsytVIP消费信息 LEFT JOIN rjsytVIP基本信息 ON (卡号 = VIP卡号 )) GROUP BY  VIP卡号, 归属门店代号) as a Where VIP卡号 = '214125'
---------------------------
确定  
---------------------------

太棒了，终于搞定了，搞得我满脸通红，眼珠子都要爆出来了。

另外我发现：

对于sqlserver2000,

ex1 = "Round(DateDiff( m,MAX(消费日期),GetDate()),0)" 是可以不用引号的。

谢谢 有点酸老师 don老师 blackzhu老师 Bin老师 还有狐表的官方工程师 小余老师  ！！！

各位老师好，

是已经全部可以显示了，可是发现计算的不准，如：

---------------------------

---------------------------
select * from (Select {rjsytVIP基本信息}.行政区域, {rjsytVIP基本信息}.归属门店代号,{rjsytVIP基本信息}.营业员, VIP卡号, VIP客户名称, 移动电话,地址, 生效日期, COUNT(DISTINCT 消费日期)  As 总共买过多少次, 

(Case

When COUNT(DISTINCT 消费日期) > 0 and COUNT(DISTINCT 消费日期) <= 3 Then '一星级忠诚'

When COUNT(DISTINCT 消费日期) > 3 and Round(DateDiff( m,MAX(消费日期),GetDate()),0) <= 6 Then '二星级忠诚'

When COUNT(DISTINCT 消费日期) > 6 and Round(DateDiff( m,MAX(消费日期),GetDate()),0) <= 10 Then '三星级忠诚'

When COUNT(DISTINCT 消费日期) > 10 and Round(DateDiff( m,MAX(消费日期),GetDate()),0) <= 15 Then '四星级忠诚'

Else  '五星级忠诚'

End) As 忠诚级别       FROM (rjsytVIP消费信息 LEFT JOIN rjsytVIP基本信息 ON (卡号 = VIP卡号 )) GROUP BY  {rjsytVIP消费信息}.VIP卡号, {rjsytVIP基本信息}.归属门店代号,VIP客户名称) as a Where 归属门店代号 = 'R0039'
---------------------------
确定  
---------------------------

但是显示的却是这样：

此主题相关图片如下：qq图片20140321221621.jpg

明显不对。。。