以文本方式查看主题

-  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=33633)
--  作者：anxue
--  发布时间：2013/5/22 5:57:00
--  [求助]入库新增加产品
入库表新增加产品，产品名称和单价自动添加库存表中，这个如何实现？
--  作者：lsy
--  发布时间：2013/5/22 8:18:00
--  

入库表

BeforeSaveDataRow

If e.DataRow.RowState = DataRowState.Added Then
    If e.DataRow.IsNull("产品名称") = False AndAlso e.DataRow.IsNull("单价") = False Then
        Dim dr As DataRow = DataTables("库存表").AddNew()
        dr("产品名称") = e.DataRow("产品名称")
        dr("单价") = e.DataRow("单价")
    End If
End If

DataTables("库存表").Save()