应该是:
Dim f As Byte = DataTables("设备折旧").Compute("Sum(折旧月数)","[设备编号] = '" & e.DataRow("设备编号") & "'")
你代码中的e.NewValue值是“折旧开始”的值。