以文本方式查看主题

-  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