主题：新手请教 日期筛选问题

好的 我现在就去看下

 

试试这样看有没有效，没有效，就看20楼。

 

Dim idxs As String = ""
Dim phs As new List(Of String)
For Each dr As DataRow In DataTables("表A").DataRows
    If phs.Contains(dr("电话")) = False Then
        phs.Add(dr("电话"))
        idxs &= dr("_Identify") & ","
    End If
Next

Tables("表A").Filter = "生日 >= #" & Date.Today & "# and 生日 < #" & Date.Today.AddDays(1) & "# and _Identify in (" & idxs.TrimEnd(",") & ")"

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


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

 

 

22楼的测试无效

 不可能无效，请认真测试。不可能一个地方可以，另一个地方就不行的。

领导 还是不行啊

Dim idxs As String = ""
Dim phs As new List(Of String)
For Each dr As DataRow In DataTables("表A").DataRows
    If phs.Contains(dr("电话")) = False Then
        phs.Add(dr("电话"))
        idxs &= dr("_Identify") & ","
    End If
Next

Tables("表A").Filter = "生日 >= #" & Date.Today & "# and _Identify in (" & idxs.TrimEnd(",") & ")"     如果大于等于  就什么都查不出来  如果是小于等于 就能查到 2014年以前的

 

 

 把你xp电脑上的项目拷贝到你另一台电脑测试，看是否正常。

在 WIN7 和 win8  都正常

 

 

要么，是你的数据有问题。要么，是你的电脑有问题。

 

我的电脑就是xp的，执行代码正常。

也不行  我在WIN7 系统下 在数据里添加了 1975-06-11 的一条数据 也差不出来

 

 

呃，你要查等于今天的，还是要查今天生日的？