以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  局域网开单,订单明细不能及时加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121850)

--  作者:whx007
--  发布时间:2018/7/13 20:30:00
--  局域网开单,订单明细不能及时加载

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

 

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

请帮忙看看,谢谢!

 


--  作者:有点蓝
--  发布时间:2018/7/13 20:36:00
--  
参考:http://www.foxtable.com/webhelp/scr/2228.htm
--  作者:whx007
--  发布时间:2018/7/13 21:29:00
--  

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

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

[此贴子已经被作者于2018/7/13 21:39:04编辑过]

--  作者:有点蓝
--  发布时间:2018/7/13 21:38:00
--  
如果是CurrentChanged事件,要父表选择的行改变后才会加载这一行的明细,并不是点击按钮后就加载
--  作者:whx007
--  发布时间:2018/7/13 21:41:00
--  
局域网内三个人使用并开单,我希望点击刷新按钮的时候只加载新增的订单,并在选择订单的时候,相应的订单明细能加载出来。我该怎么做?
[此贴子已经被作者于2018/7/13 21:44:00编辑过]

--  作者:有点蓝
--  发布时间:2018/7/13 21:49:00
--  
如果是选择后在加载,这个用法没有问题。是不是窗口副本表来的?
--  作者:whx007
--  发布时间:2018/7/13 22:00:00
--  
是窗口副本表来,而且有筛选
[此贴子已经被作者于2018/7/13 22:00:40编辑过]

--  作者:有点蓝
--  发布时间:2018/7/13 22:17:00
--  
加载后重新给副本表做一下筛选
--  作者:whx007
--  发布时间:2018/7/13 23:18:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:tim截图20180713171039.jpg
图片点击可在新窗口打开查看
销售订单和销售明细表都是副本表,

 

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

If Tables("销售查询_Table1").Rows.Count > 0 Then
    Tables("销售查询_Table2").Filter = "订单号 = \'" &  Tables("销售查询_Table1").Current("订单号") & "\'"
End If

 

在这里改代码?怎么改?


--  作者:有点蓝
--  发布时间:2018/7/14 8:57:00
--  

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