主题：保存按钮后如何更新数据！！

Select Case e.DataCol.Name
    Case "产品编号"
        Dim filter As String = "产品编号 = '" & e.DataRow("产品编号") & "'"
        e.DataRow("入库数量") = DataTables("入库表").SQLCompute("sum(入库数量)", filter)
        e.DataRow("出库数量") = DataTables("出库表").SQLCompute("sum(出库数量)", filter)
End Select

 

e.DataRow("库存数量") = e.DataRow("原始库存") - e.DataRow("出库数量") + e.DataRow("入库数量")

这样，在出库表里录入出库数据后，库存表里的数据不能更新，我原来用的是加载树的办法。还有什么其它方法吗？

 

狐狸爸爸，我是通过出库窗口进行出库操作的，录入完出库数据，保存后关闭窗口。能在保存按钮里写重新加载数据的代码吗？

加载完以后数据并没有更新，已经做了出库和入库的操作了，库存的数据无法更新啊？

此主题相关图片如下：1.png

DataTables("出库表").Save()
With DataTables("库存表")
    .DataCols("产品编号").RaiseDataColChanged(.DataRows(0))
End With
e.Form.close

 

通过出库窗口录入出库数据，保存后，更新库存表，为什么只是第一行的数据更新了，第二行、第三行、也是同样的操作，数据却无法更新呢

更新是更新了，好卡啊，反应半天

  For Each dr As DataRow In DataTables("库存表").Select("产品编号 = '123456'")

明白了，谢谢

我吧出库表的里数据都删除了，新增出库代码Tables("出库表").AddNew()，为什么增加不了行呢，第二行就可以增加了

我在系统里 右键 增加行 都增加不了了