主题：[求：删除“积分兑换明细”表中的记录，客户资料表和积分礼品表中相关字段值应该相应调整，怎么实现？

[求：删除“积分兑换明细”表中的记录，客户资料表（兑换积分和剩余积分）和积分礼品表中“已使用”和“实际库存”相关字段值应该相应调整，怎么实现？

你想怎么调整?

 简单一点的话，你在删除事件DataRowDeleted加入代码重置列。

 

 http://www.foxtable.com/help/topics/1587.htm

 

例如：在“积分兑换明细”表中，发现牛勇这行不对，把该行删除了，那么：“客户资料”表中的“兑换积分”和“剩余积分”就要变化；同时“积分礼品”表中

 

的“电脑包”“已使用”和“库存”也要发生变化。如何实现呢？

重置列不行？重新计算。

 

不会做，就请上传例子说明问题。

上传例子大于2046K不可以，怎么办？

 

我在“积分兑换明细”表的datarowdeleted时间中加入以下代码：

 

DataTables("客户资料").DataCols("兑换积分").RaiseDataColChanged()

DataTables("客户资料").DataCols("剩余积分").RaiseDataColChanged()

DataTables("积分礼品").DataCols("已使用").RaiseDataColChanged()

DataTables("积分礼品").DataCols("实际库存").RaiseDataColChanged()

 

目的就是重置相关数据表的相关列，但是操作没有效果。什么原因？

 

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

点击浏览该文件:管理项目08015.rar

 如果重置列不行，就是原本写的代码不规范，例子发上来。

例子上传了，请高手指点

DataRowDeleting事件，代码

 

Dim fdr As DataRow = DataTables("积分礼品").Find("礼品名称 = '" & e.DataRow("礼品名称") & "'")
If fdr IsNot Nothing Then
    fdr("已使用") -= e.DataRow("数量")
End If

fdr = DataTables("客户资料").Find("客户名称 = '" & e.DataRow("客户名称") & "'")
If fdr IsNot Nothing Then
    fdr("兑换积分") -= e.DataRow("数量")
End If

为什么在DATAROWDELETING 里可以，在DATAROWDELETED中就出错呢？

 

代码应该是：

 

Dim fdr As DataRow = DataTables("积分礼品").Find("礼品名称 = '" & e.DataRow("礼品名称") & "'")
If fdr IsNot Nothing Then
    fdr("已使用") -= e.DataRow("数量")
End If

fdr = DataTables("客户资料").Find("客户名称 = '" & e.DataRow("客户名称") & "' and    身份证号码 = '" & e.DataRow("身份证号码") & "'   ")
If fdr IsNot Nothing Then
    fdr("兑换积分") -= e.DataRow("兑换积分")
End If

 

对么？