主题：[求助]差异表的产品图号和产品名称，能否是根据另外两个表的名称自动添加且没有重复的呢？

If e.DataCol.Name = "产品图号" Then

    If e.NewValue Is Nothing Then

        e.DataRow("产品名称") = Nothing

        e.DataRow("车间数量") = Nothing

        e.DataRow("库房保管员姓名") = Nothing

        e.DataRow("车间名称") = Nothing

    Else

        Dim dr As DataRow

        dr = DataTables("车间入库数量统计表").Find("[产品图号] = '" & e.NewValue & "'")
此主题相关图片如下：123.jpg

        If dr IsNot Nothing

            e.DataRow("产品名称") = dr("产品名称")

            e.DataRow("车间数量") = dr("数量")

            e.DataRow("库房保管员姓名") = dr("库房保管员姓名")

            e.DataRow("车间名称") = dr("车间名称")

        End If

    End If

End If

提示

编译错误：“e”是“Pricate”，因此它在此上下文中不可访问。

错误代码：If e.DataCol.Name = “产品图号”Then

在车间数量表DataColChanged事件设置如下代码

Select Case e.DataCol.Name

    Case "产品名称","数量","库房保管员姓名","车间名称"

        Dim Filter As String = "[产品图号] = '" & e.DataRow("产品图号") & "'"

        Dim drs As List(Of DataRow) = DataTables("差异统计表").Select(Filter)

        For Each dr As DataRow In drs

            dr(e.DataCol.Name) = e.NewValue

        Next

End Select

也提示如下

编译错误：“e”是“Pricate”，因此它在此上下文中不可访问。

错误代码：If e.DataCol.Name = “产品图号”Then

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

点击浏览该文件:复件 管理项目差异统计表.foxdb

这个公式应该怎么修改呢？