主题：修改数据

打开这个窗口后是不能操作这个窗体以外的任何地方的呀

打开这个窗口后是不能操作这个窗体以外的任何地方的呀

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (1) (3).table

我试了好多次还是不行的，充值时选任何一个卡号都是充值的是一个卡号！？

 

 

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

 

双击800852B6336931491271进入下面窗体

 

 

此主题相关图片如下：5.png

 

焦点移到流量卡号文本框内，然后刷新数据后所有的卡号都更新为（包括流量卡资料表中的数据）800852B6336931491271

 

 

 

此主题相关图片如下：6.png


此主题相关图片如下：7.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1 (1) (3) (1).table

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

（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