主题：求教动态加载行

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

此主题相关图片如下：qq截图20180109080628.png

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

参考 http://www.foxtable.com/webhelp/scr/1647.htm

 

还是不会写呀

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "项目编号 = '" & e.Table.Current("项目编号") & "'"
    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

此主题相关图片如下：qq截图20180109124526.png

贴出你表格的 beforeLoad 事件、afterLoad 事件。

 

做一个具体例子发上来测试。