Dim fl As String = "[打包] = '" & 1 & "'"
DataTables("质检").LoadFilter = fl
DataTables("质检").Load
Dim ids As String = "''"
For Each dr As DataRow In DataTables("质检").DataRows
ids = ids & ",'" & dr("流水编号") & "'"
Next
ids= ids.Trim(",")
DataTables("质检清单").LoadFilter = "流水编号 In (" & ids & ")"
DataTables("质检清单").Load()