主题：父表与子表同步加载,如何用like

上面的代码假定订单ID是整数型，如果订单ID是字符型，那么代码应该改为：

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()

如何同步加载订单ID的 like 订单子表id

也就是只要是包含订单ID的，子表都同步加载出来，该怎么写？