主题：弹出错误提示！急救啊！求解？

else

Dim dr As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称") & "'")

if dr innot nothing then
e.DataRow("型号规格") = dr("规格型号")

end if

Dim dt As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称") & "'")

if dt isnot nothing then
e.DataRow("单位") = dt("单位")

end if
Dim dy As DataRow = DataTables("辅助生产材料").Find("材料名称= '" & e.DataRow("材料名称") & "'")
if dy isnot nothing then

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

end if