主题：修改数据

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”重新加载的原因？应该修改代码？

 

 

 

 

 

老师还是不可以

只要父表选中行不在要删除子表相应的数据上就不更新父表

 有两张表一个是“流量卡资料表”，一个是“充值记录表”

想实现以下功能

（1）充值记录：双击某一个红色行（是否可用续费字段）进入充值界面进行充值，充值成功后根据该卡所有充值记录中筛选出充值日期最大的字段值年份+1赋值给流量卡资料表对应该卡的"流量卡有效期至“字段中，并判断此值的处于什么状态赋值给”是否过期“字段中。

（2）删除充值和修改充值记录：选中要删除和修改的数据行。单击删除按钮，执行删除数据功能，成功删除数据后根据该卡所有充值记录中筛选出充值日期最大的字段值年份-1 赋值给流量卡资料表对应该卡的"流量卡有效期至“字段中，并判断此值的处于什么状态赋值给”是否过期“字段中。

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

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

（1）删除记录后（本来删除的数据是日期是最大），删除后该卡应该是属于过期卡，可是“流量卡资料表”对应的该卡"流量卡有效期至“字段 和 ”是否过期“字段还是没更新。再删除一个充值记录后，父表才更新数据。（注：应该是删除数据后判断最大值，不是删除前的数据判断最大值）

 还发现一个问题就是只有删除刚加载窗体时所选的卡号进行删除时，父表才对应更新，如果 再选择其他卡号进行删除操作时，判断的是删除行卡号，父表更改的确是第一次加载窗体时所选的卡号所对应的值。我需要实现父表的所有更新应该随着充值记录子表所选择的不同的卡号进行操作后而更新的。

（2）刷新数据后，选其他卡号 进行操作时，父表不随之更新！

 

甜老师还是不行只有删除刚加载窗体时所选的卡号进行删除时，父表才对应更新，如果 再选择其他卡号进行删除操作时，判断的是删除行卡号，父表更改的确是第一次加载窗体时所选的卡号所对应的值。我需要实现父表的所有更新应该随着充值记录子表所选择的不同的卡号进行操作后而更新的。

（2）刷新数据后，选其他卡号 进行操作时，父表不随之更新！

我是双击流量卡资料表进入充值界面的，第一步是充了几个不同日期的值，再刷新数据后选择其他卡号给他他卡号充值时充不了值父表更新的刚加载窗体时选择的卡号，不是刷新数据后选择其他卡号对应的数据更新。

第二部是同样的方法进入充值界面进行删除操作也是只能对刚加载窗体时所选择的的卡号进行父表对应卡号数据进行更新，如果再刷新数据后选择其他卡号进行删除操作后父表所更新的也是刚加载窗体时选择的卡号，不是刷新数据后选择其他卡号对应的数据更新。

 

 

进入充值界面后只能对刚加载窗体时所选择的的卡号进行操作，不能随意选中其他卡号进行操作，除非退出窗体，再在流量卡表中选择要更改或删除的卡号重新进充值窗体进行操作。

 

老师烦请测试测试。

我要实现的是进入充值界面后随意对所有的卡都能修改或删除并返回到流量卡资料表做相应的修改

那你的意思是每次只能对一个卡号进行操作吗？因为每次只能显示一个卡号呀！

 

如果再不退出充值记录界面的情况下怎么才能对多张卡进行操作呢？

老师不显示其他卡，不管是直接运行充值记录窗体还是双击选中某个卡进入充值记录窗体都是只显示单张卡的充值记录的，烦请您测试一下看看

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

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

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

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

 

 

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


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


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

 

双击800852B6336931491271进入下面窗体

 

 

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

 

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

 

 

 

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


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