主题：多列关联时主子表如何写代码加载

'如果主表没数据不加载明细,
If DataTables("订单").DataRows.Count = 0 Then
    DataTables("订单明细").LoadFilter = "[_Identify] < 0 " '不加载
    DataTables("订单明细").Load(False)
Else  '遍历加载各个子表,集合已加载父表的所有关联列编号
    Dim ids As String
    For Each cdr As DataRow In DataTables("订单").dataRows
        ids = ids & ",'" & cdr("订单编号") & "'"
    Next
    ids = ids.Trim(",")
    Dim sql As String = "S elect * from {订单明细} where 订单编号 In (" & ids & ")"
    DataTables("订单明细").SQLLoad(sql,False)
End If

上面是只有订单编号一列作为关联列时的情况，如果订单与订单明细是通过两个关联列如“订单编号，客户ID”关联的代码要如何写呢，要同上面按sqlLoad的写法..  谢谢！

那下面这句要怎么修改呢，因为多个关联列不知道怎么把它们集合在一起，还是要用数组集合之类的。

For Each cdr As DataRow In DataTables("订单").dataRows
        ids = ids & ",'" & cdr("订单编号") & "'"
 Next

 可以直接这样

DataTables("名单").LoadChildren("明细", "身份证号]+[入院时间", "[身份证号]+[入院时间]")

 或者，多列合并以后，LoadFilter这样写

"S elect * from {订单明细} where [身份证号]+[入院时间]  In (" & ids & ")"

因为主表的数据全部都是用sqlload的方式加载的，

用DataTables("名单").LoadChildren("明细", "身份证号]+[入院时间", "[身份证号]+[入院时间]")

这样的方式加载会提示错误，好象sqlload与datatable.load不能同时用

 1、ids合并多列内容，分隔符用 ',' 如 '123456','789'

 2、sql语句 "S elect * from {订单明细} where [第一列]+[第二列]  In (" & ids & ")"

请教两位老师，4楼用or连接明细表的所有需要加载的数据和7楼用in选择的方式哪种效率高些，还是都一样？

效率差不多。