物料表DataColChanged事件
设置好后重置一下物料名称列
If e.DataCol.name = "物料名称"
If e.DataRow.IsNull("物料名称") = False
Dim dr As DataRow = DataTables("出入明细表").Find("物料名称 = '" & e.DataRow("物料名称") & "'","_Identify Desc")
e.DataRow("库存数量") = dr("库存数量") + e.DataRow("初始数据")
Else
e.DataRow("库存数量") = Nothing
End If
End If