Foxtable(狐表)用户栏目专家坐堂 → 咨询一个问题,入库单的基础信息,怎么同步增加到库存表中


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

主题:咨询一个问题,入库单的基础信息,怎么同步增加到库存表中

帅哥哟,离线,有人找我吗?
猫小猪
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:648 威望:0 精华:0 注册:2016/7/7 10:12:00
  发帖心情 Post By:2016/8/19 17:26:00 [只看该作者]

管理员密码: qqqqqq

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/19 17:29:00 [只看该作者]

 上传数据库。

 回到顶部
帅哥哟,离线,有人找我吗?
猫小猪
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:648 威望:0 精华:0 注册:2016/7/7 10:12:00
  发帖心情 Post By:2016/8/19 17:31:00 [只看该作者]

入库单中:条形码、货位、适用款号、尺码、部位 ,这五列的值录入后,会自动在“库存”中自动增加一行,但要有一个根据这五列的判断条件, 即: 有一项不同时,则自动同步到库存的表中; 如果完全相同,则“库存”表不增行。 

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/19 17:35:00 [只看该作者]

 上传你的access数据库。

 回到顶部
帅哥哟,离线,有人找我吗?
猫小猪
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:648 威望:0 精华:0 注册:2016/7/7 10:12:00
  发帖心情 Post By:2016/8/19 17:45:00 [只看该作者]

ACCESS

 回到顶部
帅哥哟,离线,有人找我吗?
猫小猪
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:648 威望:0 精华:0 注册:2016/7/7 10:12:00
  发帖心情 Post By:2016/8/19 17:47:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:datebase.rar




 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/19 17:56: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("货位")
            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


 回到顶部
帅哥哟,离线,有人找我吗?
猫小猪
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:648 威望:0 精华:0 注册:2016/7/7 10:12:00
  发帖心情 Post By:2016/8/19 18:06:00 [只看该作者]

对啊。。。。我晕啊,,,想了半天没转弯来。     万分感谢! 

 回到顶部
帅哥哟,离线,有人找我吗?
猫小猪
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:92 积分:648 威望:0 精华:0 注册:2016/7/7 10:12:00
  发帖心情 Post By:2016/8/20 9:56:00 [只看该作者]

你好,还是昨天的问题,当我在“入库”里,增加一行相同的记录时, 库存的表里会出现一个有条形码的空行,怎么判断因入库单录入的字段“条形码”和库存表里的“条形码”字段相同时, 则库存表不会增加行。 反之则增加一行。

图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/8/20 10:05:00 [只看该作者]

先判断是否有条形码存在再新增

Dim dr As DataRow = DataTables("库存").Find("条形码 ='" & e.DataRow("条形码") & "'")
If dr Is Nothing Then 
    dr = DataTables("库存").AddNew
    dr("条形码") = e.DataRow("条形码")
End If

 回到顶部
总数 23 上一页 1 2 3 下一页