主题：[求助] 代码计算后数据更新问题？

If e.DataCol.Name = "改码_改入重量" Then
    Dim pr As DataRow
    pr = DataTables("织机生产").Find("生产条码 = '" & e.DataRow("旧生产条码") & "'")
    If pr IsNot Nothing Then
        DataTables("织机生产").DataCols("生产条码").RaiseDataColChanged(pr) '重算原产品的销售数量和金额
        pr.Save()
    End If
End If