主题：修改数据

Dim Result As DialogResult
If  Tables("充值记录").Current("流量卡号") IsNot Nothing
    If DataTables("充值记录").Compute("Count(流量卡号)","流量卡号 = '" & Tables("充值记录").Current("流量卡号") & "'") > 1 Then
        result= MessageBox.Show("是否要删除充值记录?","请注意",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
        If result=DialogResult.yes Then
            Tables("充值记录").Current.Delete
            Dim yxq As Date=DataTables("充值记录").Compute("max(充值日期)","流量卡号 = '" & Tables("充值记录").Current("流量卡号") & "'")
msgbox(yxq)
            Tables("流量卡资料").Current("流量卡有效期至")=yxq.AddYears(1)
            Tables("流量卡资料").Current("是否过期")=False
            DataTables.Save
            DataTables("流量卡资料").Load
           
        End If
    End If
Else
    MessageBox.Show("无数据,不可以删除!", "提示")
End If

 

修改子表后怎样修改父表对应的记录中某个字段中的值？

 

第一次修改的数据的时候能成功修改，第二次修改父表时就修改不了了。原因可能是“DataTables("流量卡资料").Load”重新加载的原因？应该修改代码？