AS Aisle, [Stock Inventory].Owner, [Stock Inventory].Stock, [Stock Inventory].Supplier, [Stock
Inventory].PalletID, [Stock Inventory].OnhandQty, [Stock Inventory].Impressions
FROM [Location List] LEFT JOIN [Stock Inventory] ON [Location List].Location_Code=[Stock
Inventory].Location
WHERE ([Location List].Area_Type)=Forms!MainForm!List_AreaType
ORDER BY Left([Location List].Location_Code,3), Right([Location List].Location_Code,2), Mid([Location
List].Location_Code,4,3);
Combo Box控件更新后事件如下:
Private Sub List_AreaType_AfterUpdate()
Me.MySubForm.SourceObject = "Query.Quarter Stocktaking Query"
End Sub