主题：增加记录到另一个表

我在表的 双击  事件中,加入如下代码:

If e.Col.name = "加入" Then
Dim dr As DataRow = DataTables("商品资料").AddNew
For Each dc As DataCol In DataTables("商品资料").DataCols
dr(dc.Name) = e.Row(dc.Name)
Next
End If

以上代码是将当前的行复制到"商品资料"表中.

我希望这样:当商品资料表的"条码"列与当前的"条码"列相同时,那么只累加"数量",否则执行以上代码直接在商品资料表增加行.