主题：[求助]跨表引用的自动更新，表达式修改为代码

参考

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

代码没问题，语法没问题。你执行的时候，报什么错？

1、你把产品、结构、客户的值都填入了没有？

2、代码改成

Select Case e.DataCol.Name
    Case "客户","产品","结构"
        Dim Filter As String = ""
        If e.DataCol.name = "客户" Then
            filter = "[客户] = '" & e.oldvalue & "' And [产品] = '" & e.DataRow("产品") & "' And [结构] = '" & e.DataRow("结构") & "'"
        ElseIf e.DataCol.name = "产品" Then
            filter = "[客户] = '" & e.DataRow("客户") & "' And [产品] = '" & e.oldvalue & "' And [结构] = '" & e.DataRow("结构") & "'"
        ElseIf e.DataCol.name = "结构" Then
            filter = "[客户] = '" & e.DataRow("客户") & "' And [产品] = '" & e.DataRow("产品") & "' And [结构] = '" & e.oldvalue & "'"
        End If
        msgbox(filter)
        DataTables("稿件名称").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select

如果还有问题，上传具体实例测试。