主题：sql 数据源最好的表同步方案

任何数据源都可以，试试改成

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单编号 = '" & e.Table.Current("订单编号") & "'"
    DataTables("订单明细").RemoveFor(Filter)
    DataTables("订单明细").AppendLoad(Filter) '则追载此订单的订单明细
End If