在【产品基础表】里，一个成品（产品名称）下级有多种子目录(一级分类产品）也就是半成品，现在有一个客户订单【计划产品表】给出产品（产品名称）和数量，需要用按键代码统计出需要多少半产品（一级分类产品）生产出客户订单表中的成品填充到【】里处理，  ---------这样不知道说明白没有？

 也就是【计划产品分解表】在填充过程中完成中（第二列）=（计划数量）*（产品一级分类数量）值

看计划产品分解表窗口。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目23.table

用文本框肯定不行呀，订单中不是单一成品，一般有20多个客户一次订下几百种产品（成品），各个客户也有相同产品，只能先在表中录入订单，再统计共需要采购多少半成品才能达到要求

这样可以的

Dim Cus As List(Of String)
For Each dr1 As DataRow In DataTables("计划产品表").datarows
    For Each dr2 As DataRow In DataTables("产品基础表").Select("[产品名称] = \'" & dr1("产品名称") & "\'")
        Dim dr3 As DataRow = DataTables("计划产品分解表").AddNew()
        dr3("第一列") = dr2("产品一级分类名称")
        dr3("第二列") = dr1("计划数量") * dr2("产品一级分类数量")
    Next
Next
MainTable = Tables("计划产品分解表")

不过我估计你要的不仅仅是产品一级分类数量。

这样的问题，你自己不应该太懒，居然连产品计划表的结构也懒得设计，别人怎么知道你要的是什么？

表结构设计好，多输入一点测试数据，让别人明白你的问题，才能更快获得答案。

Dim Cus As List(Of String)
Dim dic As new Dictionary(of String,Integer)
For Each dr1 As DataRow In DataTables("计划产品表").datarows
    For Each dr2 As DataRow In DataTables("产品基础表").Select("[产品名称] = \'" & dr1("产品名称") & "\'")
        Dim nm As String = dr2("产品一级分类名称")
        Dim vl As Integer = dr1("计划数量") * dr2("产品一级分类数量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+   vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("计划产品分解表").AddNew()
    dr("第一列") = key
    dr("第二列") = dic(key)
Next
MainTable = Tables("计划产品分解表")