我觉得可以这样,假设“产品编号”为关联列,对应关联数据全部加载。
Dim s As String = DataTables("产品").GetComboListString("产品编号")DataTables("订单").LoadFilter = "[产品编号] In(" & s.Replace("|",",") & ")"DataTables("订单").Load