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

 如下

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

点击浏览该文件:修改单价.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

 回复11楼，你可以用产品表和加工表的对应列做关联，勾选一下自动更新即可。

 http://www.foxtable.com/help/topics/1644.htm

 产品表，datacolchanged，代码

If e.DataCol.Name = "产品名称" Then
    If e.OldValue <> Nothing Then
        DataTables("加工表").ReplaceFor("产品名称", e.NewValue, "产品名称 = '" & e.OldValue & "'")
    End If
End If

 如下

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

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