最好将:入,出,结存改成数具列 在:datacolchanged中设代码如一点吧:
Dim dr As DataRow = e.DataRow Select Case e.DataCol.Name Case "物品代码" dr("入库数") =datatables("工具出库").Compute("Sum(数量)", "[物品代码] = '" & dr("物品代码") & "'") dr("出库数") =datatables("工具入库").Compute("Sum(数量)", "[物品代码] = '" & dr("物品代码") & "'") case "入库数","出库数" dr(结存) = dr("初期数") + dr("入库数") - dr("出库数") end select
然后在工具入库表和出库表的DATACOLCHANGED中设一代码: Dim dr As
DataRow dr = DataTables("工具库存").Find("[物品代码] = '" & e.DataRow("物品代码") & "'") If dr IsNot Nothing
Then DataTables("工具库存").DataCols("物品代码").RaiseDataColChanged(dr) End
If
试试看看
|