[求助]关于后台数据更新问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师您好！

以下是我在表的BeforeSaveDataRow代码，现在我在保存新记录行的时候，系统就死机了。我知道这些代码执行是把所有的记录全部更新一下，占用很多的电脑资源造成的。请问一下，我能否针对所编缉的记录（以“支出合同编号”）的更新？代码应该怎么写？

谢谢老师！

For Each dr As DataRow In DataTables("支出合同收支表").datarows

Dim spje As Decimal

spje = DataTables("支出合同收支表").Compute("Sum(金额)","支出合同编号 = '" & dr("支出合同编号") & "'And [类别] = '收piao'")

DataTables("支出合同基础数据").SQLReplaceFor("已收fa piao金额",spje,"支出合同编号 = '" & dr("支出合同编号") & "'")

DataTables("支出合同基础数据").SQLReplaceFor("应开fa piao数","支出合同实际价款 - 已收fa piao金额","支出合同编号 = '" & dr("支出合同编号") & "'",True)

Dim zcje As Decimal

zcje = DataTables("支出合同收支表").Compute("Sum(金额)","支出合同编号 = '" & dr("支出合同编号") & "'And [类别] = '支出'")

DataTables("支出合同基础数据").SQLReplaceFor("已付款金额",zcje,"支出合同编号 = '" & dr("支出合同编号") & "'")

DataTables("支出合同基础数据").SQLReplaceFor("应付款余额","已收fa piao金额 - 已付款金额","支出合同编号 = '" & dr("支出合同编号") & "'",True)

For Each drz As DataRow In DataTables("支出合同基础数据").datarows

Dim s As Decimal

s = DataTables("支出合同基础数据").SQLCompute("Sum(已收fa piao金额)","主合同编号 = '" & drz("主合同编号") & "'")

DataTables("工程合同基础数据").SQLReplaceFor("支出合同应付款_应付总额",s,"合同编号 = '" & dr("主合同编号") & "'")

Dim z As Decimal

z = DataTables("支出合同基础数据").SQLCompute("Sum(已付款金额)","主合同编号 = '" & drz("主合同编号") & "'")

DataTables("工程合同基础数据").SQLReplaceFor("支出合同应付款_已付数",z,"合同编号 = '" & dr("主合同编号") & "'")

DataTables("工程合同基础数据").SQLReplaceFor("支出合同应付款_应付余额","支出合同应付款_应付总额 - 支出合同应付款_已付数","合同编号 = '" & dr("主合同编号") & "'",True)

Dim dr = e.DataRow
Dim spje As Decimal
spje = DataTables("支出合同收支表").Compute("Sum(金额)","支出合同编号 = '" & dr("支出合同编号") & "'And [类别] = '收piao'")
DataTables("支出合同基础数据").SQLReplaceFor("已收fa piao金额",spje,"支出合同编号 = '" & dr("支出合同编号") & "'")
DataTables("支出合同基础数据").SQLReplaceFor("应开fa piao数","支出合同实际价款 - 已收fa piao金额","支出合同编号 = '" & dr("支出合同编号") & "'",True)
Dim zcje As Decimal
zcje = DataTables("支出合同收支表").Compute("Sum(金额)","支出合同编号 = '" & dr("支出合同编号") & "'And [类别] = '支出'")
DataTables("支出合同基础数据").SQLReplaceFor("已付款金额",zcje,"支出合同编号 = '" & dr("支出合同编号") & "'")
DataTables("支出合同基础数据").SQLReplaceFor("应付款余额","已收fa piao金额 - 已付款金额","支出合同编号 = '" & dr("支出合同编号") & "'",True)

Dim s As Decimal
s = DataTables("支出合同基础数据").SQLCompute("Sum(已收fa piao金额)","主合同编号 = '" & dr("主合同编号") & "'")
DataTables("工程合同基础数据").SQLReplaceFor("支出合同应付款_应付总额",s,"合同编号 = '" & dr("主合同编号") & "'")
Dim z As Decimal
z = DataTables("支出合同基础数据").SQLCompute("Sum(已付款金额)","主合同编号 = '" & dr("主合同编号") & "'")
DataTables("工程合同基础数据").SQLReplaceFor("支出合同应付款_已付数",z,"合同编号 = '" & dr("主合同编号") & "'")
DataTables("工程合同基础数据").SQLReplaceFor("支出合同应付款_应付余额","支出合同应付款_应付总额 - 支出合同应付款_已付数","合同编号 = '" & dr("主合同编号") & "'",True)

谢谢老师，辛苦了！

主题：[求助]关于后台数据更新问题