Dim ids As String = "" For Each dr As Row In Tables("订单").Rows ids = ids & ",'" & dr("生产任务单号") & "'" Next ids= ids.Trim(",")
cmd.CommandText = "Sel ect {ICMO}.FBillNo,{PPBOM}.FBillNo,{PPBOM}.FStatus,FAuxQtyPick,{t_Item}.*,{t_UnitGroup}.FName From (((({PPBOMEntry} Inner JOIN {PPBOM} ON {PPBOM}.[FInterID] = {PPBOMEntry}.[FInterID]) Inner JOIN {t_Item} ON {t_Item}.[FItemID] = {PPBOMEntry}.[FItemID]) Inner JOIN {ICMO} ON {ICMO}.[FInterID] = {PPBOM}.[FICMOInterID]) Inner JOIN {t_ICItemBase} ON {t_ICItemBase}.[FItemID] = {t_Item}.[FItemID]) Inner JOIN {t_UnitGroup} ON {t_UnitGroup}.[FUnitGroupID] = {t_ICItemBase}.[FUnitGroupID] Where {PPBOM}.[fstatus] <> 1 and 生产任务单号 In (" & ids & ")"
|