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

 

要保存以后，才会保存到数据库，你说的不更新是什么情况。

 

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

        e.DataRow.Save
End Select

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

 你的数据量越多，执行 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("")

 

1、增加不了提示什么？

 

2、在beforeAddDataRow是否写了代码；

 

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