以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]库存商品重复 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116402) |
-- 作者:q2520 -- 发布时间:2018/3/23 22:09:00 -- [求助]库存商品重复 Select Case e.DataCol.name Case "编号" Dim dr As DataRow = DataTables("产品").Find("编号 = \'" & e.OldValue & "\'") If dr Is Nothing Then dr = DataTables("库存").AddNew() dr("编号") = e.DataRow("编号") dr("名称") = e.DataRow("名称") dr("规格") = e.DataRow("规格") \'dr("类别") = e.DataRow("类别") \'dr("型号") = e.DataRow("型号") Else dr("编号") = e.DataRow("编号") End If Case "名称","规格" Dim dr As DataRow = DataTables("库存").Find("编号 = \'" & e.DataRow("编号") & "\'") If dr IsNot Nothing Then dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name) End If End Select 怎么样可以 让库存表里 已经有的产品 不在重复增加
|
-- 作者:有点蓝 -- 发布时间:2018/3/23 22:25:00 -- 参考示例四:http://www.foxtable.com/webhelp/scr/0624.htm |