Foxtable(狐表)用户栏目专家坐堂 → 关于提取不重复值的再次提取


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

主题:关于提取不重复值的再次提取

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


加好友 发短信
等级:一尾狐 帖子:274 积分:3237 威望:0 精华:0 注册:2012/12/24 22:08:00
关于提取不重复值的再次提取  发帖心情 Post By:2019/10/18 23:32:00 [只看该作者]

用户已被锁定

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


加好友 发短信
等级:一尾狐 帖子:274 积分:3237 威望:0 精华:0 注册:2012/12/24 22:08:00
  发帖心情 Post By:2019/10/18 23:35:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/19 9:26:00 [只看该作者]

先查询一下是否存在产品

Dim dt1 As DataTable = DataTables("成品入库")
For Each  p1 As String In dt1.GetValues("成品名称")
    Dim dr1 As DataRow = DataTables("成品库存").Find("成品名称='" & p1 & "'")
    If dr1 Is Nothing Then
        dr1  = DataTables("成品库存").AddNew
        dr1("成品名称") =  p1
    End If
    dr1("入库总数") = dt1.Compute("sum(入库数量)","[成品名称] = '" & P1 & "'")
Next

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


加好友 发短信
等级:一尾狐 帖子:274 积分:3237 威望:0 精华:0 注册:2012/12/24 22:08:00
  发帖心情 Post By:2019/10/19 14:16:00 [只看该作者]

用户已被锁定

 回到顶部