主题：[求助]帮忙看一下这个代码有什么问题吗？

If e.DataCol.name = "半成品净重" Then
    Dim dr As DataRow = e.DataRow
    dr.save
    Dim d As Double = DataTables("分切工piao信息").SQLCompute("sum(分切净重_合计)","流水号 = '" & e.DataRow("流水号") & "'")
    For Each pr As DataRow In DataTables("分切工piao信息").Select("流水号 = '" & e.DataRow("流水号") & "'")
        If pr IsNot Nothing Then
            pr("半成品净重") = pr("分切净重_合计")/d *dr("半成品净重")
            pr.save
        End If
    Next
End If

先试试2楼的代码，代码没有问题，如果有问题，说明你 分切工piao信息 的数据没有加载出来。

 是不是你重置错了列？看2楼的代码