Foxtable(狐表)用户栏目专家坐堂 → [求助]单价如何判断货号录入?


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

主题:[求助]单价如何判断货号录入?

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


加好友 发短信
等级:婴狐 帖子:53 积分:458 威望:0 精华:0 注册:2012/11/2 1:53:00
[求助]单价如何判断货号录入?  发帖心情 Post By:2012/11/13 17:14:00 [只看该作者]

菜鸟请教,入库,库存两个表,入库按键对库存执行入库操作,库存有的,在原来的货号基础上数量累计,没有的新货号在库存里新起一行,录入货号,单价和数量。入库单可一次录入多行,怎么能够让一次多录入的新货号单价都可以判读相应的货号录入呢,附件在里面,给出一段编写的代码就可以。谢谢

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


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/11/13 17:42:00 [只看该作者]

 代码如下

Dim s As Row=Tables("入库单").Current
If Tables("入库单").Current.IsNull("货号") Then
    MessageBox.Show("货号不能为空!")
Else
    Dim dt1,dt2 As DataTable
    dt1 = DataTables("入库单")
    dt2 = DataTables("实时库存表")

    For Each dr As DataRow In dt1.DataRows
        Dim dr2 As DataRow = dt2.find("货号 = '"& dr("货号") &"'")
        If dr2 Is Nothing Then
            dr2 = dt2.AddNew
            dr2("货号") = dr("货号")
            dr2("入库数量") = 1
            dr2("单价") = dr("单价")
        Else
            dr2("入库数量") = dr2("入库数量") + 1
        End If
    Next
    MessageBox.Show("商品入库成功!")
    Forms("入库单").Close
End If

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


加好友 发短信
等级:婴狐 帖子:53 积分:458 威望:0 精华:0 注册:2012/11/2 1:53:00
  发帖心情 Post By:2012/11/13 18:20:00 [只看该作者]

十分感谢


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


加好友 发短信
等级:小狐 帖子:365 积分:2693 威望:0 精华:1 注册:2011/11/25 7:55:00
  发帖心情 Post By:2012/11/13 18:21:00 [只看该作者]

解决了就好图片点击可在新窗口打开查看

 回到顶部