主题：被这条规则搞的头大了，求方法！

汽车售后服务中，有一项是验车提醒服务。。根据上牌日期，提前对客户进行验车提醒。。。验车提醒规则如下：

无非是一些IF判断

不是对某一个上牌日期的判断啊。。。是对整个表。。表里面有上万的数据。。 其中有上牌日期 这一列。。。我想知道，今天应该有多少人需要进行提醒！

你举的例子,我就给你写的例子,不是让你盲目套用,而是让你参考这个思路中,把日套成变量即可使用

 参考例子，就是循环每一行，判断啊

 

http://www.foxtable.com/help/topics/2476.htm

 

 

大大们！我做了一个例子。。例子里面的数据很少，实际上数据七八万左右。。。想实现的就是，每日打开项目就会告诉我今天需要提醒的客户是多少，并提供这些客户的列表。。当我对他们进行提醒后，就会在提醒列表里消失。。。等到下次该提醒的时候又会跳出来。。 （可以帮我增加下列，谢谢！！）

Dim d1 As Date = "2012-9-1"
Dim d2 As Date = "2010-9-1"
Dim n As Integer = 30 '未来30天
Dim idxs As String = ""
For Each dr As DataRow In DataTables("表A").Select("上牌日期 is not null")
    Dim dt As Date = dr("上牌日期")
    Dim dt1 As New Date(Date.Today.Year,dt.Month,dt.Day)
    Dim dt2 As  New Date(Date.Today.AddDays(n).Year,dt.Month,dt.Day)
    If (dt1 >= Date.Today AndAlso dt1 < Date.Today.AddDays(n)) OrElse (dt2 >= Date.Today AndAlso dt2 < Date.Today.AddDays(n)) Then
        If dt >= d1 Then
            Dim y As Integer = dt.Year - d1.Year
            If y = 2 OrElse y = 4 OrElse y >= 6 Then
                idxs &= dr("_Identify") & ","
            End If
        Else If dt > d2 AndAlso dt < d1 Then
            Dim y As Integer = dt.Year - d1.Year
            If y > 0 AndAlso y Mod 2 = 0 OrElse dt2.Year >= 2016 Then
                idxs &= dr("_Identify") & ","
            End If
        Else If dt < d2 Then
            Dim y As Integer = dt.Year - d1.Year
            If dt2.Year >= 2016 Then
                idxs &= dr("_Identify") & ","
            End If
        End If
    End If
Next
Tables("表A").Filter = "_Identify in (" & idxs.trim(",") & ")"

 我测试例子没问题，你是就着例子测试的么

时间类型不一样，改成datetime