主题：“_Identify”主键冲突

改成这样

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "订单号 = '" & e.Table.Current("订单号") & "'"
    If DataTables("销售明细表").Find(Filter) Is Nothing
        DataTables("销售明细表").AppendLoad(Filter) '则追载此订单的订单明细
    End If
    If DataTables("订单付款明细表").Find(Filter) Is Nothing Then  '如果对应的订单明细和付款明细都没有加载过
        DataTables("订单付款明细表").AppendLoad(Filter) '则追载此订单的订单付款明细
    End If
End If