主题：局域网开单，订单明细不能及时加载

订单表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

 

刷新按钮代码：

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

 

当其中一个终端新增一个订单后，点击刷新按钮，可以加载新的订单，但不能加载订单明细。

请帮忙看看，谢谢！

 

参考：http://www.foxtable.com/webhelp/scr/2228.htm

我采用的就是父表和子表同步加载之三的例子

订单明细不能加载，需要重新打开软件订单明细才能看见

如果是CurrentChanged事件，要父表选择的行改变后才会加载这一行的明细，并不是点击按钮后就加载

局域网内三个人使用并开单，我希望点击刷新按钮的时候只加载新增的订单，并在选择订单的时候，相应的订单明细能加载出来。我该怎么做？

如果是选择后在加载，这个用法没有问题。是不是窗口副本表来的？

是窗口副本表来，而且有筛选

加载后重新给副本表做一下筛选

此主题相关图片如下：tim截图20180713171039.jpg

销售订单和销售明细表都是副本表，

 

销售订单副本表CurrentChanged事件代码：

If Tables("销售查询_Table1").Rows.Count > 0 Then
    Tables("销售查询_Table2").Filter = "订单号 = '" &  Tables("销售查询_Table1").Current("订单号") & "'"
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) '则追载此订单的订单明细

if forms("销售查询").opened then

Tables("销售查询_Table2").Filter = Filter

end if
    End If
End If