主题：请求帮帮忙

版主您好，能把更改后的代码发送吗，谢谢

你将楼上那个代码加到原代码后面就行了

下面文件你应该能打开吧。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

还是不行啊，显示调用目标发生了异常。而且一直关不掉

这个不用重置物料中心表的，明细表的库存数量有变动会自动重算的。

另外物料中心的代码改成这样

 

If e.DataCol.name = "物料编号"
    If e.DataRow.IsNull("物料编号") = False
        Dim dr As DataRow = DataTables("出入库明细").Find("物料编号 = '" &e.DataRow("物料编号") & "'","_Identify Desc")
        If dr IsNot Nothing Then
            e.DataRow("库存数量") = dr("库存数量") + e.DataRow("初始数据")
        Else
            e.DataRow("库存数量") = Nothing
        End If
       
    Else
        e.DataRow("库存数量") = Nothing
    End If
End If

非常感谢版主，谢谢了

可以了，谢谢