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

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

 你的数据量越多，执行 SQLCompute 越多，运行就肯定越慢。

 

 要不代码这样写

 

DataTables("出库表").Save()
With DataTables("库存表")
    DataTables("入库表").LoadFilter = ""
    DataTables("入库表").Load
    DataTables("出库表").LoadFilter = ""
    DataTables("出库表").Load
    For Each dr As DataRow In DataTables("库存表").Select("产品编号 = '123456'")
        Dim filter As String = "产品编号 = '" & dr ("产品编号") & "'"
        dr("入库数量") = DataTables("入库表").Compute("sum(入库数量)", filter)
        dr("出库数量") = DataTables("出库表").Compute("sum(出库数量)", filter)
    Next
End With
e.Form.close

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

 全部就不要写，要限定就加上对应的条件

 

For Each dr As DataRow In DataTables("库存表").Select("")

 

明白了，谢谢

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

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

1、增加不了提示什么？

 

2、在beforeAddDataRow是否写了代码；

 

3、表是否窗口表，是否筛选了。