主题：请专家帮忙指点进出库中的出库方法，谢谢

老师指点的很清楚了，剩下的逻辑代码还需要自己编写啊！我也在学，愿意帮你，同时自己增加一点实战经验。

请老师帮忙指点SELECT语句的修改方法，谢谢

此主题相关图片如下：screenshot_20191105_131029.jpg

此主题相关图片如下：screenshot_20191105_131732.jpg

谢谢老师的指点！

请直接发代码，这样我没法改：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632

Dim dt1 As Date = Forms("统计").Controls("DateTimePicker1").value Dim dt2 As Date = Forms("统计").Controls("DateTimePicker2").value Dim dt3 As Date = dt2.AddDays(1) Tables("统计_Table1").Fill("Select 组长,餐别,日期,星期,sum(数量) As [合计数量], sum(((数量*iif(荤素=true,1,0)*折算量))/供餐人数) As [人均荤菜量],

sum(((数量*iif(荤素=false,1,0)*折算量))/供餐人数) As [人均素菜量] From {菜谱} Where 日期>=#" & dt1& "# And 日期 <= #" & dt3 & "# Group By 组长,餐别,日期,星期 Order By 组长,日期,餐别","StDdAcc",True)

分成二段发的，我试过了，把DT3和DT3改成日期是没问题的，加入变量就不执行了，谢谢老师指点。

手机上发的，加不了换行符