主题：求助关于外部数据背景窗口生日提醒功能的问题

 参考使用sqlSelect等后台查询的方法

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

 代码

Dim cmd As new SQLCommand
cmd.CommandText = "select * from {表A}"
Dim dt As DataTable = cmd.ExecuteReader
Dim cnt As Integer = 0
Dim nms As String = ""
For Each dr As DataRow In dt.DataRows
    Dim d As Date = dr("出生日期")
    d =  New Date(Date.Today.Year,d.Month,d.Day)
    If Date.Today.AddDays(0) = d Then
        cnt = cnt + 1
        nms &= dr("姓名") & ","
    End If
Next
If cnt > 0 Then
    e.Form.Controls("Label1").Text = ("今天有_" & cnt & "_位同事过生哦, 有:《" & nms.TrimEnd(",") & "》;祝贺一下吧!")
    e.Form.Controls("Label1").ForeColor = color.red
End If