主题：父子表同步加载有多个关联列时怎么办？

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

当主表可能有多个关联列时，并且关联列的数据类型可能不一样。此时想用数组来累加生成加载条件，但下面红色部分不知怎么写？

  Dim Recols As String = “订单ID,产品编号”

  For Each dr In DataTables(e.DataTable.name).DataRows

     dim rec() as string = Recols.split(",")

     For i As Integer = 0 To  rec().Length - 1

         ids = ids & ",'" & dr(Rcol) & "'"  ‘这里应该是多维数组累计，或者可以用两个集合吗？

     Next

  Next