Foxtable(狐表)用户栏目专家坐堂 → 将物流信息表相同字段导入到盘点表中


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

主题:将物流信息表相同字段导入到盘点表中

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/16 17:29:00 [显示全部帖子]

Select Case e.DataCol.name
    Case "存货名称"
        Dim dr As DataRow = DataTables("盘点表").Find("存货名称 ='" & e.OldValue & "'")
          If dr Is Nothing Then
             dr = DataTables("盘点表").AddNew()
             dr("染料代号") = e.DataRow("染料代号")
             dr("存货名称") = e.DataRow("存货名称")
             dr("英文名称") = e.DataRow("英文名称")
              dr("单价") = e.DataRow("单价")
         Else
            dr("存货名称") = e.DataRow("存货名称")
         End If
    Case "染料代号","英文名称","单价" 
         Dim dr As DataRow = DataTables("盘点表").Find("存货名称 ='" & e.DataRow("存货名称") & "'")
         If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
          End If
 End  Select

 回到顶部