以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  代码合并 简化  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113385)

--  作者：有点甜 --  发布时间：2018/1/15 9:09:00 --   If e.Table.Current IsNot Nothing Then     Dim Filter As String = "订单ID = \'" & e.Table.Current("订单ID") & "\'"     Dim ary() = {"附件管理","订单清单","执行团队","项目备忘录"}     For Each s As String In ary         If  DataTables(s).Find(Filter) Is Nothing Then \'如果对应的订单明细没有加载过             DataTables(s).AppendLoad(Filter) \'则追载此订单的订单明细         End If     Next End If