销售订单和销售明细表通过订单号关联，订单出库明细表和销售明细表通过订单号以及产品型号关联。

局域网使用时通过刷新按钮刷新数据，刷新按钮代码如下：

Dim id As Integer = DataTables("销售订单").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("销售订单").AppendLoad(Filter, False)

销售订单CurrentChanged代码如下（窗口表副表也有相同的代码）：

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单号 = \'" & e.Table.Current("订单号") & "\'"
    If DataTables("销售明细表").Find(Filter) Is Nothing
        DataTables("销售明细表").AppendLoad(Filter) \'则追载此订单的订单明细
    End If
End If

销售销售明细表CurrentChanged代码如下（窗口表副表也有相同的代码）：

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单号 = \'" & e.Table.Current("订单号") & "\'"
    If DataTables("订单出库明细表").Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过
        DataTables("订单出库明细表").AppendLoad(Filter) \'则追载此订单的订单明细
    End If
End If

现在的问题是，局域网A用户新增一个订单，B用户点刷新按钮追载新数据，无论是在窗口还是本表，销售明细表可以追载最新的数据进来，但是订单出库明细表在窗口表和本表都不能追载。当A用户再增加一个新订单后，B用户可以看到上一个订单的订单出库明细表数据追载进来了。

请问这是什么原因，为什么不能即时追载进来？

看看这里吧，代码写到afterLoad事件才对

http://www.foxtable.com/webhelp/scr/2894.htm

http://www.foxtable.com/webhelp/scr/2932.htm

http://www.foxtable.com/webhelp/scr/2228.htm

1、如果你点击切换销售明细表的不同行，订单出库明细表能否加载新数据出来？

2、如果1还是无法加载，你要改成removefor，然后AppendLoad http://www.foxtable.com/webhelp/scr/2914.htm

甜老师，1还是无法加载。

改成如下代码放到销售明细表的afterload 和CurrentChanged 都没起作用。

If Tables("销售明细表").Current IsNot Nothing Then
    Dim Filter As String = "订单号 = \'" &  Tables("销售明细表").Current("订单号") & "\'"
    DataTables("订单出库明细表").RemoveFor(Filter)
    DataTables("订单出库明细表").AppendLoad(Filter) \'则追载此订单的订单明细
End If

如果改成这样呢？

msgbox(1)

If Tables("销售明细表").Current IsNot Nothing Then

msgbox(2)
    Dim Filter As String = "订单号 = \'" &  Tables("销售明细表").Current("订单号") & "\'"
    DataTables("订单出库明细表").loadfilter = Filter

    DataTables("订单出库明细表").load
End If

问题已经找到了，订单出库明细表保存的问题。谢谢甜老师！