[求助]根据生产计划表生成需求明细表的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考，命令窗口执行看效果，其它列的数据自己补上：

Dim dr As DataRow

For Each r As Row In Tables("生产计划单").Rows

For Each r2 As DataRow In DataTables("产品部件表").Select("产品编号='" & r("产品编号") & "'")

dr = DataTables("部件需求计算").AddNew

dr("计划单号") = r("计划单号")

dr("产品编号") = r("产品编号")

dr("部件序号") = r2("部件序号")

Dim jhs As Integer = r("产品生产计划数")

Dim yl As Integer = r2("部件用量")

dr("部件用量") = yl

dr("总需求量") = jhs * yl

主题：[求助]根据生产计划表生成需求明细表的代码