主题：请帮我看下代码哪里错了

If e.DataCol.Name = "客户产品号" Then '如果内容发生变动的是 客户产品号 列

      If  e.DataRow.isnull("客户产品号") = true Then ‘  

          e.DataRow("入库数量") = Nothing 客户产品号的内容被删除或更改成其他的值了，入库数量列的数据都需要清零        

      Else        
        Dim dr As DataRow '在出库主表查找是否存在客户产品号的行
        dr = DataTables("出库主表").Find(" [客户产品号] = '" & e.DataRow("客户产品号") & "'")
        If dr Is Nothing Then ’没有找到相应的客户产品号
            dr = DataTables("出库主表").AddNew() ‘新增一行数据
            dr("客户产品号") = e.DataRow("客户产品号") '赋值
            dr("客户") = e.DataRow("客户")  '赋值
        End If
    End If
End If