Dim lsjl As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "' and 解绑日期 is null")
If lsjl IsNot Nothing Then
lsjl ("解绑日期") =Date.Today
Else
' lsjl ("解绑日期") =Date.Today
lsjl = DataTables("流量卡绑定商户历史记录表").addnew
lsjl ("流量卡ID") =dr("流量卡ID")
lsjl ("流量卡号") =dr("流量卡号")
lsjl ("类型") =dr("类型")
lsjl ("商户ID") =dr("商户ID")
lsjl ("商户名称") =dr("商户名称")
lsjl ("客户ID") =dr("客户ID")
lsjl ("客户姓名") =dr("客户姓名")
lsjl ("绑定日期") =Date.Today
lsjl ("解绑日期") =Date.Today
End If
甜老师这样是给“流量卡绑定历史记录表”新增的数据“解绑日期”赋值的,不是新解绑的数据赋值的呀,怎样实现给新解绑的数据赋解绑日期值呢?
[此贴子已经被作者于2017/9/26 14:05:37编辑过]