If r IsNot Nothing AndAlso r("是否可以续费") = True Then
Dim nr As Row =Tables("充值记录").AddNew
nr("流量卡号") = r("流量卡号")
nr("充值日期") = e.Form.Controls("DateTimePicker1").value
nr("充值金额") = e.Form.Controls("chongzhijineTextBox").value
nr.save
Dim zd As Date=DataTables("充值记录").Compute("max(充值日期)","流量卡号 = '" & r("流量卡号") & "'")
r("流量卡有效期至")=zd.AddYears(1)
r("是否过期")=zd.AddYears(1) < Date.Today
DataTables.Save
czkh.value = r("流量卡号")
e.Form.Controls("DateTimePicker1").value=Nothing
e.Form.Controls("chongzhijineTextBox").value=Nothing
'czkh.ReadOnly = BooleanEnum.Default
Else
msgbox("此卡号不能充值")
End If
加好友 
发短信
Post By：2017/7/3 21:02:00 [只看该作者]
