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

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

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

请帮忙看看，谢谢！