老师好：

在同一张表中，新增行时，要复制表中已存在的产品编号相同行的标准工时，生产工序，应该怎样写代码？

如：表A中，已存在了产品编号001及标准工时,如果要再新增行时，只要输入产品编号001,就自动将之前输入表中的标准工时及生产工序的行进行复制，自动输入新增行中，可以实现吗？

目前是建立标准工时表，和生产工序表，进行引用。

因为相同产品的生产工序是动态的，不断变化，不能固定，每次都要重新选择录一次，太麻烦了。

多谢！！

参考

http://www.foxtable.com/webhelp/scr/1451.htm

老师好：

我上一个简单的例子吧，有时间帮我写一下代码，我真的想不到好的办法了呵呵，多谢了！

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

点击浏览该文件:同表条件复制行.rar

如图：就是录入产品编号后，只要产品编号相同，不管之前录入的是否加载，只要存在此产品相同的产品编号，那么，工序号，标准工时就能从以前录入的行进行复制，自动录入（不管是否加载在表中）。

此主题相关图片如下：qq图片20160829105403.png

我也不知道我是否讲明白了？？

多谢！！

DataColchanged事件

If e.DataCol.name = "产品编号" Then
    Dim fdr As DataRow = e.DataTable.Find("工序号 is not null and 标准工时 is not null and 产品编号 = \'" & e.DataRow("产品编号") & "\'", "_Identify desc")
    If fdr IsNot Nothing Then
        e.DataRow("工序号") = fdr("工序号")
        e.DataRow("标准工时") = fdr("标准工时")
    End If
End If

多谢红袍老师！