Foxtable(狐表)用户栏目专家坐堂 → [求助]入库新增加产品


  共有5115人关注过本帖树形打印复制链接

主题:[求助]入库新增加产品

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By: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()


 回到顶部