试试
Dim filter As String
If DataTables("客户原始订单总表").DataRows.Count = 0 Then '如果订单表没有数据
filter = "产品编号 Is Null" '不加载订单明细
Else
Dim ids As List(Of String) = DataTables("客户原始订单总表").GetValues("产品编号")
Dim filter = "产品编号 In ('" & String.Join("','",ids.ToArray) & "')"
End If
DataTables("内部订单总表").LoadFilter = filter
DataTables("盘点结存表").LoadFilter = filter
DataTables("入库明细表").LoadFilter = filter
DataTables("客退明细表").LoadFilter = filter
DataTables("内部订单总表").Load()
DataTables("盘点结存表").Load()
DataTables("入库明细表").Load()
DataTables("客退明细表").Load()
加好友 
发短信
Post By：2016/9/22 22:04:00 [显示全部帖子]
