以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138355) |
-- 作者:xxm653232 -- 发布时间:2019/7/29 16:23:00 -- [求助] 在库存明细表中添加一个新的记录时,在库存表中如果是没有这个产品的,则在库存表中自动新增这个产品,如果库存表中是存在的话就不添加,产品由型号和颜色两部分组成,请问老师应该怎么做 |
-- 作者:有点蓝 -- 发布时间:2019/7/29 16:55:00 -- 参考: 库存明细表datacolchanged事件 If e.DataCol.Name = "型号" OrElse e.DataCol.Name = "颜色" Then Dim dr As DataRow dr = DataTables("库存").Find("[型号] = \'" & e.DataRow("型号") & "\' and 颜色=\'" & e.DataRow("颜色") & "\'") If dr Is Nothing Then dr = DataTables("库存").AddNew dr("型号") = e.DataRow("型号") dr("颜色") = e.DataRow("颜色") End If End If |