主题：求助：多表同步加载

老师好：如果客户原始订单加载，我要同时加载如下的几个表相同的产品编号数据，现在问题是，只能加载一个内部订单表的数据其它表是空的不能加载进来，如果只写加载一个表，就可以，请问是不是代码写得有问题。

我在表事件AfterLoad写了下面的代码（表之间未建立关联）：

If DataTables("客户原始订单总表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("内部订单总表").LoadFilter = "产品编号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("客户原始订单总表").DataRows
        ids = ids & ",'" & dr("产品编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("内部订单总表").LoadFilter = "产品编号 In (" & ids & ")"
End If
DataTables("内部订单总表").Load()

If DataTables("客户原始订单总表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("盘点结存表").LoadFilter = "产品编号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("客户原始订单总表").DataRows
        ids = ids & ",'" & dr("产品编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("盘点结存表").LoadFilter = "产品编号 In (" & ids & ")"
End If
DataTables("盘点结存表").Load()

If DataTables("客户原始订单总表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("入库明细表").LoadFilter = "产品编号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("客户原始订单总表").DataRows
        ids = ids & ",'" & dr("产品编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("入库明细表").LoadFilter = "产品编号 In (" & ids & ")"
End If
DataTables("入库明细表").Load()

If DataTables("客户原始订单总表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("客退明细表").LoadFilter = "产品编号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("客户原始订单总表").DataRows
        ids = ids & ",'" & dr("产品编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("客退明细表").LoadFilter = "产品编号 In (" & ids & ")"
End If
DataTables("客退明细表").Load()