主题：请教 根据条件在另一表中查找符合条件的行，自动复制到需求表中

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

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

在 总表 中 选中自动配置列后，以总表中的总装号为条件，自动查找清单表中的总装号的清单明细，将所查找到的清单明细自动添加到 总表的关联表中。。

 

 

 

当我在 配置明细列中打钩时，能实现功能，第二次打钩时，不能实现功能，为什么第二次打钩时，不能重新 添加清单信息？

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

点击浏览该文件:从另表找到数据填充.table

 

你把明细表中的数据全部删除

 

然后在总表的自动配置明细列中，打上钩，接着会自动复制数据，然后你取消打钩，在进行第二次打钩，接着也会自动添加行，但不复制数据。。。

我测试过了，都是一样的效果。。。。

 

？？？？

不懂，求文件发来看看。

现在只有第一次钩选才会填充数据，而第二次、第三次钩选没有进行填充数据

我希望  只要有打钩的动作，就自动在明细表中填充数据。

 

全新的数据，之前填充的依然保留。。

 

这样行不行呢?

此主题相关图片如下：qq截图未命名.jpg

 

          If e.NewValue = True Then
            Dim dr5 As DataRow
            For i As Long = 0 To Tables("物料编码").count -1
                dr5 = DataTables("物料编码").Find("物料型号='" & Tables("物料编码").rows(i)("物料型号") & "'")
                If dr5("物料型号")= Tables("生产任务单总表").Current("物料型号") Then
                    Dim r As Row=Tables("生产任务单总表.车间绩效记录").AddNew()
                    Tables("车间绩效记录").rows(i)("级别") =Tables("物料编码").rows(i)("级别")
                    Tables("车间绩效记录").rows(i)("物料编码") =Tables("物料编码").rows(i)("物料编码")
                    Tables("车间绩效记录").rows(i)("物料型号") =Tables("物料编码").rows(i)("物料型号")
                    Tables("车间绩效记录").rows(i)("物料名称") =Tables("物料编码").rows(i)("物料名称")
                    Tables("车间绩效记录").rows(i)("加工工艺") =Tables("物料编码").rows(i)("加工工艺")
                    Tables("车间绩效记录").rows(i)("工艺内容") =Tables("物料编码").rows(i)("工艺内容")
                    Tables("车间绩效记录").rows(i)("物料类别") =Tables("物料编码").rows(i)("类别")
                    Tables("车间绩效记录").rows(i)("品质标准") =Tables("物料编码").rows(i)("品质标准")
                    Tables("车间绩效记录").rows(i)("产能") =Tables("物料编码").rows(i)("产能")
                    Tables("车间绩效记录").rows(i)("周期") =Tables("物料编码").rows(i)("生产周期")
                    Tables("车间绩效记录").rows(i)("单价") =Tables("物料编码").rows(i)("价格")
                    Tables("车间绩效记录").rows(i)("计量单位") =Tables("物料编码").rows(i)("计量单位")
                End If
            Next
        End If
      

我的 物料编码表有2W多行。。。是不是行太多了？

因为有的时候，根据一行任务单，需要安排多次的生产，所以就会有第二次、三次、四次填充。。

谢谢狐爸指点迷津。。。