主题：求助！！！！

你多了个else,应该：

 

Dim dr As DataRow
dr = DataTables("商品入库").Find("商品编号 = " & "'" & e.Form.Controls("TextBox1").Value & "'" )
If dr IsNot Nothing Then '如果找到就把文本框5的值与表列中的值想加
    dr("入库数量") = e.Form.Controls("TextBox5").Value + dr("入库数量")
    dr("商品编号") = e.Form.Controls("TextBox1").Value
    dr("产品类别") = e.Form.Controls("TextBox2").Value
    dr("产品名称") = e.Form.Controls("TextBox3").Value
    dr("单位") = e.Form.Controls("TextBox4").Value
    dr("入库数量") = e.Form.Controls("TextBox5").Value
    dr("采购价") = e.Form.Controls("TextBox6").Value
    dr("销售单价") = e.Form.Controls("TextBox7").Value
End If

当然多了，你原来的代码，else之后的部分，是没有找到符合条件的行才会执行的，既然没有符合条件的行，那么dr为nothing，运行这些代码肯定出错。

要理清楚自己的逻辑，再写代码。

这段代码的逻辑是否是这样的：如果找到，则数量累加，没有找到，则增加一行。

如果是的，代码为：

 

Dim dr As DataRow
dr = DataTables("商品入库").Find("商品编号 = " & "'" & e.Form.Controls("TextBox1").Value & "'" )
If dr IsNot Nothing Then '如果找到
   dr("入库数量") = e.Form.Controls("TextBox5").Value + dr("入库数量")
Else
    dr = DataTables("商品入库").AddNew() '如果没有找到,则增加一行
    dr("商品编号") = e.Form.Controls("TextBox1").Value
    dr("产品类别") = e.Form.Controls("TextBox2").Value
    dr("产品名称") = e.Form.Controls("TextBox3").Value
    dr("单位") = e.Form.Controls("TextBox4").Value
    dr("入库数量") = e.Form.Controls("TextBox5").Value
    dr("采购价") = e.Form.Controls("TextBox6").Value
    dr("销售单价") = e.Form.Controls("TextBox7").Value
End If

看六楼。

另建议：提问，除了贴出代码，最好也介绍下这段代码的目的，以及说明什么时候会出错。

看六楼，我已经猜出你的意思了，你漏掉了增加行的代码。