- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助关于外部数据背景窗口生日提醒功能的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52443)
-- 发布时间：2014/6/16 11:22:00
-- 求助关于外部数据背景窗口生日提醒功能的问题
我想把生日提醒设置在背景窗口里面，如果今天没有过生的同事就不显示内容，如果有同事过生就用红色字体显示出来，这个例子是使用的本地数据，我在实际使用中是使用的外部数据，我想实现不加载表A的情况下使用，请问该怎么弄，谢谢
-- 发布时间：2014/6/16 11:24:00
--
有加载表结构就用SQLSelect等.
连表架构都没加载, 那就用SQLCOMMAND
看你实际使用是哪个情况?
-- 发布时间：2014/6/16 11:27:00
--
参考使用sqlSelect等后台查询的方法
http://www.foxtable.com/help/topics/2900.htm
-- 发布时间：2014/6/16 11:29:00
--
为了只实现在背景窗口有个提示而加载表结构的话效率就不高了 看了很多帮助，就那最关键的代码不知道 请老师帮帮忙 谢谢
-- 发布时间：2014/6/16 11:30:00
--
单纯加载表结构,其实效率速度没差什么, 使用上会相对简单很多, 代码和原来的一样. 使用SQLSELECT即可.
否则要使用SQL语句,加大开发难度.
-- 发布时间：2014/6/16 11:34:00
--
代码
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