主题：修改数据

谢谢老师！经过测试测出两个问题

（1）添加充值记录后流量卡号文本框被清空后，单击选中刚加的数据流量卡号文本框赋值不了。只有先选其他行再选刚添加的数据才能赋值给流量卡号文本框。

（2）经过添加或删除数据后， 流量卡资料表中的是否过期字段没按要求赋值 （要求不管添加、删除还是修改充值记录都要严格执行数据变化后判断该变化的卡中所有充值记录中最大的日期年数+1 和计算机时间对比，如果大于计算机时间说明没过期，否则已经过期，并将此值赋值给“是否过期”字段。）

我改了半天了改不好，请老师指教

Dim d As Date = Date.Today.AddDays(10)
Dim yxq As Date =e.Form.Controls("DateTimePicker1").value
Dim czkh As WinForm.TextBox = e.Form.Controls("liuliangkahaoTextBox1")
If czkh.text = Nothing Then
    MessageBox.Show("充值卡号不能为空","提示",MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
    If yxq= Nothing Then
        MessageBox.Show("充值日期不能为空","提示",MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Else
        Dim r As DataRow = DataTables("流量卡资料").find("流量卡号 = '" & czkh.text & "'")
        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("是否过期")=False   去掉后 是否过期 不更新
            DataTables.Save
            'czkh.value = Nothing  应该修改成动态的不知道怎么修改
            e.Form.Controls("DateTimePicker1").value=Nothing
            e.Form.Controls("chongzhijineTextBox").value=Nothing
        Else
            msgbox("此卡号不能充值")
        End If
       
    End If
End If