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("入库数量")

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

 在MainTableChanged事件中加上代码：

if  MainTable.Name = “这个表名” then

     DataTables("这个表名").DataCols("产品编号").RaiseDataColChanged()

End if

参考：

http://www.foxtable.com/help/topics/1587.htm

你加入加载代码就行了，如：

DataTables("表名").Load

 或者只加载当前行：

Tables("表名").Current.Load()

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

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

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

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

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

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