主题：代码运行错误

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

   Dim dr as datarow = datatables("表B").find("产品编号= '"  & e.NewValue & "'")

   if dr is nothing then

      dim r as datarow = datatbles("表B").AddNew

      r("产品编号") = e.datarow("产品编号")

   end if

end if