晕倒，我没有啊？
希望你自重！作者: pigeon 时间: 2003-6-19 18:28
请与我联系，我提供空间。QQ:19895587作者: 唐小小 时间: 2003-6-19 18:35
谢谢，不信你们等着看吧，有人提供空间，哈哈作者: 唐小小 时间: 2003-6-19 18:38
我会放到他空间里供你们下，但告诉你们这些人，是我改版的，源程序我是不会给你们的，我只会给好人，不信就看我改的作者: 竹笛 时间: 2003-6-19 18:59
Private Sub RoutA()
'创建责任清单
DoCmd.RunSQL "SELECT TabCostDuty.DuDWGC, TabCostDuty.ProID, TabCostDuty.DuNumber, TabCostDuty.DuPrice, [DuNumber]*[DuPrice] AS DuMoney, TabCostDuty.DuEnd, 0 AS PlanNumber, 0 AS PlanMoney, 0 AS ActualNumber, 0 AS ActualMoney INTO TabAll_listing FROM TabCostDuty;"
End Sub
Private Sub RoutB()
'创建计划清单
DoCmd.RunSQL "SELECT TabCostPlan.DuDWGC, TabCostPlan.ProID, TabCostPlan.PlanNumber, TabCostPlan.PlanPrice, [PlanPrice]*[PlanNumber] AS PlanMoney INTO TabAll_listing_plan FROM TabCostPlan WHERE (((TabCostPlan.PlanYes)=0));"
End Sub
Private Sub RoutC()
'创建计划汇总清单
DoCmd.RunSQL "SELECT TabAll_listing_plan.DuDWGC, TabAll_listing_plan.ProID, Sum(TabAll_listing_plan.PlanNumber) AS sumPlanNumber, Sum(TabAll_listing_plan.PlanMoney) AS sumPlanMoney INTO TabAll_plan FROM TabAll_listing_plan GROUP BY TabAll_listing_plan.DuDWGC, TabAll_listing_plan.ProID;"