以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加记录到另一个表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23004)
--  作者：kevin
--  发布时间：2012/8/29 23:11:00
--  增加记录到另一个表

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

 

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

 

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

 

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

 

 
--  作者：狐狸爸爸
--  发布时间：2012/8/30 8:20:00
--  
If e.Col.name = "加入" Then
    Dim dr As DataRow = DataTables("商品资料").Find("条码 = \'" & e.DataRow("条码") & "\'"
    If dr Is Nothing Then
        DataTables("商品资料").AddNew
        For Each dc As DataCol In DataTables("商品资料").DataCols
            dr(dc.Name) = e.Row(dc.Name)
        Next
    Else
        dr("数量") = dr("数量") + e.DataRow("数量")
    End If
End If