- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关联表的自动增加 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15781)
-- 发布时间：2012/1/11 12:14:00
-- 关联表的自动增加
我想实现当5天后有过生日的会员时。所有的要过生日的会员在会员信息的关联表--会员信息.礼物中都会相应的自动增加一行。
请问这个代码如何写
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2012/1/11 13:52:00
--
Dim dr As DataRow = DataTables("会员信息").Find("出生日期 =\'" & Date.Today().AddDays(1) & "\'")
If dr IsNot Nothing Then
MessageBox.Show(dr("姓名"))
Dim dr1 As Row = Tables("会员信息.礼物").AddNew()
dr1("会员ID")= dr("会员卡号")
End If
-- 发布时间：2012/1/11 16:16:00
--
我的功能没有实现啊
代码没有反应啊
-- 发布时间：2012/1/11 17:33:00
--
For Each dr As DataRow In DataTables("会员信息").DataRows
Dim dt As Date = dr("出生日期")
dt = new Date(Date.Today.Year,dt.Month,dt.day)
If dt >= Date.Today AndAlso dt <= dt.Today.AddDays(5)
Dim dr2 As DataRow = DataTables("礼物").AddNew()
dr2("会员ID") = dr("会员卡号")
End If
Next
-- 发布时间：2012/1/12 7:39:00
--
以下是引用blackzhu在2012-1-11 13:52:00的发言：
Dim dr As DataRow = DataTables("会员信息").Find("出生日期 =\'" & Date.Today().AddDays(1) & "\'")
If dr IsNot Nothing Then
MessageBox.Show(dr("姓名"))
Dim dr1 As Row = Tables("会员信息.礼物").AddNew()
dr1("会员ID")= dr("会员卡号")
End If
Dim dr As DataRow = DataTables("会员信息").Find("出生日期 =\'" & Date.Today().AddDays(1) & "\'")
If dr IsNot Nothing Then
MessageBox.Show(dr("姓名"))
Dim dr1 As Row = Tables("会员信息.礼物").AddNew()
dr1("会员ID")= dr("会员卡号")
End If
我的只是提供了一个方法而已.