以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  maintablechanged  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169283)

--  作者:edisontsui
--  发布时间:2021/6/10 8:12:00
--  maintablechanged
以下是 maintablechanged 代码:

Select Case MainTable.name
    Case "销售单"
      \'自动追载当前表
        Dim id As Integer = CurrentTable.DataTable.Compute("Max(_Identify)")
        Dim Filter As String = "[_Identify] > " & id
        CurrentTable.DataTable.AppendLoad(Filter,False)
End Select

上面的代码可以自动追载当前表。但是如果我来到"销售单"希望能够自动追载另一个数据表“腾龙供料汇总”,上面的代码要怎样修改?谢谢。

--  作者:有点蓝
--  发布时间:2021/6/10 9:23:00
--  
CurrentTable.DataTable改为DataTables("腾龙供料汇总")即可