主题：[求助]加工表加工单价随产品表修改而改动代码

我有一产品表和一加工表，表中都有产品名称列、工序1单价、工序2单价和工序3单价，每件产品都有三道加工程序，每道工序的加工单价都不一样，分别为工序1单价、工序2单价、工序3单价，如果产品表中的三个工序的单价有所调整，则加工表中后录入的三个工序单价也随之变化，但修改之前加工表录入的三个工序价格保持不变，请求各位老师们能帮助写个代码，谢谢！

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

点击浏览该文件:修改单价.table

高手们是不是都休息了吗？

帮助里只有一个单价的修改，但我在这方面没有任何基础，多了两个单价，代码就不知怎么写了，请帮忙写一个，谢谢！

 如下

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

点击浏览该文件:修改单价.rar

有点甜老师，您可能发错了，我打开一看没有代码，麻烦你重新发一个给我，谢谢！！！

木有发错，就是这个，代码写在 加工表 DataRowChanged

有点甜老师，您可能发给我的是商业版本或者是其他版本，而我用的试用版，我下载后，连项目都看不见，还望重新给我发一个，谢谢！！！

1、你升级到最新版foxtable；

2、你下载的是zip压缩包，你需要解压一下，才能看到例子。我手机上网，就不重发了，代码如下

Select Case e.DataCol.Name
    Case "产品名称"
        Dim fdr As DataRow = DataTables("产品表").Find("产品名称 = '" & e.DataRow("产品名称") & "'")

        If fdr IsNot Nothing Then
            e.DataRow("工序1单价") = fdr("工序1单价")
            e.DataRow("工序2单价") = fdr("工序2单价")
            e.DataRow("工序3单价") = fdr("工序3单价")
        Else
            e.DataRow("工序1单价") = Nothing
            e.DataRow("工序2单价") = Nothing
            e.DataRow("工序3单价") = Nothing
        End If
End Select

谢谢有点甜老师，电脑知识太差，以后要好好多学习，谢谢！！！