以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这段代码要怎么改？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158297)
--  作者：hitzfeld
--  发布时间：2020/11/14 18:50:00
--  这段代码要怎么改？
DataColChange事件
目的是，当当前行发生变动的时候，检索“库存表”中是否存在对应单号，如果没有，就新增一行，并写入当前行的单号，产品名称，数量
Select Case e.DataCol.Name
    Case "审核" ,"产品名称","入库数量","采购单号"
      Dim dr As DataRow = DataTables("库存表").find("采购单号=\'" & e.DataRow("采购单号") & "\'")
        If dr Is Nothing Then
            DataTables("库存表").addnew()
            dr("采购单号") = e.DataRow("采购单号")
dr("产品名称") = e.DataRow("产品名称")
dr("采购数量") = e.DataRow("采购数量")
        End If
End Select

但是一直报错，请老师指点下。谢谢！
--  作者：cbt
--  发布时间：2020/11/15 9:01:00
--  
 dr=DataTables("库存表").addnew()
--  作者：hitzfeld
--  发布时间：2020/11/17 1:16:00
--  
谢谢CBT老师！原来这么简单！太开心了！