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

如代码

For Each dr As DataRow In DataTables("补充合同或决算数据").datarows
    If dr.RowState <> DataRowState.Unchanged Then
        Dim bgzg As Integer
        bgzg = DataTables("补充合同或决算数据").SQLCompute("Sum(本次造价增减)","循环编号 = '" & dr("循环编号") & "'")
        DataTables("工程合同基础数据").SQLReplaceFor("补充或决算增减",bgzg,"循环编号 = '" & dr("循环编号") & "'",True)
        DataTables("工程合同基础数据").SQLReplaceFor("实际造价","合同价款 + 补充或决算增减","循环编号 = '" & dr("循环编号") & "'",True)
    End If
Next

DataTables("补充合同或决算数据").Save()