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


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

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

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


加好友 发短信
等级:幼狐 帖子:185 积分:1249 威望:0 精华:0 注册:2014/7/5 8:01:00
将物流信息表相同字段导入到盘点表中  发帖心情 Post By:2014/7/16 17:21: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

同时,在物流信息中如果进行增加删除,也会在盘点表在反映。但是实现不了,哪位高后能帮忙,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:祥泰仓库管理系统.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部