主题：求助！！！！

 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