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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:专柜积分.rar

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的机器上不好用呢

 

 

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

就是在点击 生日提醒的时候 筛选不出来 数据 其他一切正常

领导帮助真及时啊

 

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

是的 机器日期正确

 

 

弹出 messagebox.show(Tables("表A").Filter) 看看条件是什么样的, 再检查是否有对应数据