主题：代码执行报错

If e.DataCol.Name = "单号" Then 

    If e.NewValue Is Nothing Then 

        e.DataRow("产品编号") = Nothing

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

        e.DataRow("数量") = Nothing

    Else

        Dim dr As DataRow

       

        dr = DataTables("表B").Find("[产品编号] = '" & e.NewValue & "'")

        If dr IsNot Nothing Then

            e.DataRow("产品编号") = dr("产品编号")

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

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

            

        End If

    End If

End If

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

    If e.NewValue Is Nothing Then 

        e.DataRow("产品编号") = Nothing 

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

        

        e.DataRow("单价") = Nothing 

    Else

        Dim dr As DataRow

        dr = DataTables("产品A").Find("[产品编号] = '" & e.NewValue & "'")

        If dr IsNot Nothing Then 

            e.DataRow("产品编号") = dr("产品编号")

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

            

            e.DataRow("单价") = dr("单价")

        End If

    End If

End If

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2019.12.17.18

错误所在事件：表，表C，DataColChanged

详细错误信息：

调用的目标发生了异常。

无法在 System.Int32 和 System.String 上执行“=”操作。