共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：关联表的自动增加
1楼
youyuweinihao 发表于：2012/1/11 12:14:00我想实现当5天后有过生日的会员时。所有的要过生日的会员在会员信息的关联表--会员信息.礼物中都会相应的自动增加一行。
请问这个代码如何写
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
2楼
blackzhu 发表于：2012/1/11 13:52:00Dim 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
If dr IsNot Nothing Then
MessageBox.Show(dr("姓名"))
Dim dr1 As Row = Tables("会员信息.礼物").AddNew()
dr1("会员ID")= dr("会员卡号")
End If
3楼
youyuweinihao 发表于：2012/1/11 16:16:00我的功能没有实现啊
代码没有反应啊
4楼
狐狸爸爸 发表于：2012/1/11 17:33:00For 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
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
5楼
blackzhu 发表于：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
我的只是提供了一个方法而已.
共5 条记录, 每页显示 10 条, 页签:
[1]