主题：求助！！！！

 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("入库数量")
    Else '如果未找到 就新增数据写到表里面 但是在这一步报错???
        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

此主题相关图片如下：q~4`drmbh~yvum78hvnnut.jpg

是曾加按钮Click事件

else 不多

 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 If dr Is Nothing Then
        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

我的意思是如果没有找到符合条件的就新增一行把当前文本框里的值写到表里面去 代码怎么实现？谢谢啦！！！

恩呢，谢谢啦！