请教各位!这个查询如何做?

sxgaobo

表中数据:
a         b          c
a1       b1        c1
a2       b2        c2
a3       b3        c3
a4       b4        c4
查询结果:
a         b         c           序号
a1       b1        c1           1
a2       b2        c2           2
a3       b3        c3           1
a4       b4        c4           2

即让"序号"一直是1-2循环

zhuyiwen

在模块中加入:

Public sn As Integer

Public Function GetSn(vVar As Variant)
   sn = (sn + 1) Mod 2
   GetSn = IIf(sn = 0, 2, 1)
End Function

构造查询:
SELECT a, b, c, getsn(a) AS 序号 FROM yourTable


呵呵! [em24]

sxgaobo

谢谢 zhuyiwen  
测试成功，只是看不懂！

zhuyiwen

讲解:
' 定义一个保存序数的全局变量
Public sn As Integer

' 构造一个产生序号的函数
' 如果没有传递参数, 那么整个查询只执行一次函数计算,
' 因此,在这里多加入了一个参数, 以触发函数计算

Public Function GetSn(vVar As Variant)
   sn = (sn + 1) Mod 2                 ' 在全局变量中保存除2的余数
   GetSn = IIf(sn = 0, 2, 1)          ' 根据sn返回函数值1或2
End Function

下面在查询中使用上面设计的函数
构造查询:
SELECT a, b, c, getsn(a) AS 序号 FROM yourTable

注:此方法有一点问题, 就是在每次查询后,一定要对sn清零,即执行:
sn = 0

[em24]

sxgaobo

zhuyiwen你好！
我用你的查询做了个窗体，想使窗体中的记录隔行换色，我是用条件格式设置的，可为什么是这样啊？

zhuyiwen