主题：[求助]请教这里表达式该如何写？(已解决)

楼主你提问要养成一个好习惯，除了图片，还应该直接将表传上来，这样大家可以直接帮你设置好代码。

否则人家要帮助你，还得先建两个表，输入测试数据，毕竟每个人写代码都不是一气呵成的，都需要测试的。

没有表测试，我只能大概给你写一下，放在产值表的DataColChanged事件:

Select case e.DataCol.Name
    Case "产品名称"，"工序号"
        Dim dr As DataRow = DataTables("产品").Find("产品名称 = '" & e.DAtaRow("产品名称") & "'")
        If dr IsNot Nothing And e.Datarow("工序号") > "" Then
               e.DataRow("工序产值") = dr(e.DataRow("工序号") & "产值")
        End if
End Select

另：lihe60回帖不要那么随便，以免给新同学带来困惑。

呵呵，你传表上来，我才能测试的。

不过要等晚上或明天了，我要出去了。