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

 不应该有错，试试这样

 

Tables("表A").Filter = "生日 = #" &  Today() & "# and 电话 in (" & DataTables("表A").GetComboListString("电话").Replace("|",",")  &  ")"

 不能这样写代码，请上传项目。

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 = "生日 = #" & today & "# and _Identify in (" & idxs.TrimEnd(",") & ")"

 

在xp上，是打不开项目，还是运行不了代码？具体报什么错？

 看一下是不是这台电脑的系统日期不正确？是不是今天2014年6月11日

 

试试这样看有没有效，没有效，就看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(",") & ")"

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

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

 

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

 

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

 

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