各位老师早：

Dim sql,ex1,ex2,ex3,ex4 As String
ex1 = "Round(DateDiff( m,MAX(消费日期),GetDate()),0)"
ex2 = vbcrlf  & "(Case" & vbcrlf
ex2+ ="When " & ex1 & ">= 13  Then \'一星活跃\'"  & vbcrlf
ex2+ ="When " & ex1 & ">= 10 and " & ex1 & " < 13 Then \'二星活跃\'" & vbcrlf
ex2+ ="When " & ex1 & ">= 6 and " & ex1 & " < 10 Then \'三星活跃\'" & vbcrlf
ex2+ ="When " & ex1 & ">= 3 and " & ex1 & " < 6 Then \'四星活跃\'" & vbcrlf
ex2+ = "Else  \'五星活跃\'" & vbcrlf
ex2+ ="End) As 活跃级别  "

ex3 = "COUNT(DISTINCT 消费日期) "
ex4 = vbcrlf  & "(Case" & vbcrlf
ex4+ ="When " & ex3 & ">= 15  Then \'五星忠诚\'"  & vbcrlf
ex4+ ="When " & ex3 & ">= 10 and " & ex1 & " < 15 Then \'四星忠诚\'" & vbcrlf
ex4+ ="When " & ex3 & ">= 6 and " & ex1 & " < 10 Then \'三星忠诚\'" & vbcrlf
ex4+ ="When " & ex3 & ">= 3 and " & ex1 & " < 6 Then \'二星忠诚\'" & vbcrlf
ex4+ = "Else  \'一星忠诚\'" & vbcrlf
ex4+ ="End) As 忠诚级别  "

    sql = "select  * from (Select  {rjsytVIP基本信息}.归属门店代号 ,{rjsytVIP消费信息}.VIP卡号, " & ex2 & "  ,    " & ex4 & "    FROM "
    sql+ = "((rjsyt管理层名单 LEFT JOIN rjsytVIP基本信息 ON rjsytVIP基本信息.归属门店代号 = rjsyt管理层名单.归属门店代号) RIGHT JOIN rjsytVIP消费信息 ON 卡号 = {rjsytVIP消费信息}.VIP卡号 RIGHT JOIN rjsytVIP拓展信息 ON {rjsytVIP拓展信息}.VIP卡号 = {rjsytVIP消费信息}.VIP卡号 )  where {rjsytVIP消费信息}.[_Identify] Is Null   GROUP BY  {rjsytVIP消费信息}.VIP卡号, {rjsytVIP基本信息}.归属门店代号)  As a Where "  
  Tables("VIP行为信息_VIP行为信息").Fill(sql,"VIP数据", True)

我想增加一个列名为【顾客类别】，值是【活跃级别】与【忠诚级别】的组合，即：" & ex2 & "  与   " & ex4 & "的组合，我这样写：“" & ex2 & "  ＆  " & ex4 & "”　ＡＳ　顾客类别　　　　　

没有实现。。。。不知道怎么写。。。

哦哦，忘了。。拼接如下：

select  * from ({rjsytVIP基本信息}.归属门店代号 ,　{rjsytVIP消费信息}.VIP卡号, 

(Case

When Round(DateDiff( m,MAX(消费日期),GetDate()),0)>= 13  Then \'一星活跃\'

When Round(DateDiff( m,MAX(消费日期),GetDate()),0)>= 10 and Round(DateDiff( m,MAX(消费日期),GetDate()),0) < 13 Then \'二星活跃\'

When Round(DateDiff( m,MAX(消费日期),GetDate()),0)>= 6 and Round(DateDiff( m,MAX(消费日期),GetDate()),0) < 10 Then \'三星活跃\'

When Round(DateDiff( m,MAX(消费日期),GetDate()),0)>= 3 and Round(DateDiff( m,MAX(消费日期),GetDate()),0) < 6 Then \'四星活跃\'

Else  \'五星活跃\'

End) As 活跃级别 , 

(Case

When COUNT(DISTINCT 消费日期) >= 15  Then \'五星忠诚\'

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

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

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

Else  \'一星忠诚\'

End) As 忠诚级别

FROM ((rjsyt管理层名单 LEFT JOIN rjsytVIP基本信息 ON rjsytVIP基本信息.归属门店代号 = rjsyt管理层名单.归属门店代号) RIGHT JOIN rjsytVIP消费信息 ON 卡号 = {rjsytVIP消费信息}.VIP卡号 RIGHT JOIN rjsytVIP拓展信息 ON {rjsytVIP拓展信息}.VIP卡号 = {rjsytVIP消费信息}.VIP卡号 )  where {rjsytVIP消费信息}.[_Identify] Is Null   GROUP BY  {rjsytVIP消费信息}.VIP卡号, {rjsytVIP基本信息}.归属门店代号)  As a Where

我自己写的：“" & ex2 & "  ＆  " & ex4 & "”　AS　顾客类别　是不对的，一写上去，因为　“　" & ex2 & "  ＆  " & ex4 & "　”　AS　顾客类别　　应该是多了了这个“”

就提示说要以语句结束。

我想了解的是像类似这种　" & ex2 & "　与　" & ex4 & "　　两个字段的值组合成一个新的字段的写法是什么样的。

比如：在　之前在　表属性的　datacolchanged　　的代码格式是：

e.datarow（＂顾客类别＂）＝e.datarow（＂活跃级别＂）　＆　e.datarow（＂忠诚级别＂）

恩恩，Bin老师，我试了如下几种方式都不对：

ex2 & ex4   As 顾客类别

＂ex2 & ex4 ＂  As 顾客类别

＂　" & ex2 & " 　 &　  " & ex4 & " 　＂ As 顾客类别

＂　＇ & ex2 & ＇ 　 &　  ＇& ex4 & ＇　＂ As 顾客类别

哎。。。

好，谢谢Bin老师，我上例子。

我没加进去

加进去就乱了。。。