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
加好友 
发短信
Post By：2018/1/15 9:09:00 [显示全部帖子]
