请问如何在窗口中列出未来一个月生日的人的信息？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何在窗口中列出未来一个月生日的人的信息？

共有14251人关注过本帖树形打印复制链接主题：请问如何在窗口中列出未来一个月生日的人的信息？

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/23 14:18:00 [显示全部帖子]

参考这个：

http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=11929&skin=0

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/23 15:21:00 [显示全部帖子]

不想提示的话，你可以删除这段代码中的MessageBox的，默认就会自动列出来的。

多个提示不是更好吗？

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/25 14:11:00 [显示全部帖子]

Dim ids As String
Dim cnt As Integer
Dim nms As String
For Each dr As DataRow In DataTables("证书信息").Select("复核日期 Is Not Null")
    Dim dt As Date = dr("复核日期")
    dt = New Date(dt.year,dt.Month,dt.Day)
    If Date.Today.AddMonths(1) > dt Then
        cnt = cnt + 1
        ids = ids & "," & dr("_Identify")
        nms = nms & "," & dr("姓名") & "-" & dr("证书名称")
    End If
Next
If cnt > 0 Then
    messagebox.show("一个月内有" & cnt & "张证书需要复核, 分别是: " & nms.Trim(","))
    Tables("证书信息").filter = "[_Identify] In (" & ids.Trim(",") &")"
End If

[此贴子已经被作者于2011-8-25 14:11:30编辑过]