Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么计算新加的数据


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

主题:[求助]怎么计算新加的数据

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9861 积分:57453 威望:0 精华:15 注册:2008/9/1 9:45:00
[求助]怎么计算新加的数据  发帖心情 Post By:2012/10/11 11:16:00 [只看该作者]

根据帮助的零件计算代码:

Dim dic As new Dictionary(of String,Integer)
For Each dr1 As DataRow In DataTables("生产计划").DataRows
    For
Each dr2 As DataRow In DataTables("零件用量").Select("[产品] = '" & dr1("产品") & "'")
        Dim
nm As String = dr2("零件")
        Dim
vl As Integer = dr1("生产数量") * dr2("用量")
        If
dic.ContainsKey(nm) = False
            dic.Add(nm,vl)

        Else

            dic(nm) = dic(nm)+ vl

        End
If
    Next
Next
For
Each key As String In dic.keys
    Dim
dr As DataRow = DataTables("零件需求").AddNew()
    dr(
"零件") = key
    dr(
"需求数量") = dic(key)
Next



  根据这个代码  如果在生产计划再添加新的产品和数量   我怎么执行这个代码?


  前提是不能清除已经计算过的零件了!!!!!!!


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


加好友 发短信
等级:幼狐 帖子:139 积分:1021 威望:0 精华:0 注册:2012/1/18 14:40:00
  发帖心情 Post By:2012/10/11 11:26:00 [只看该作者]

新增行的时候加判断

For Each key As String In dic.keys
    if datatables("零件需求").find("零件= '" & key & "'") is nothing then
       Dim dr As DataRow = DataTables("零件需求").AddNew()
       dr("零件") = key
       dr("需求数量") = dic(key)
     end if
Next


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


加好友 发短信 一级勋章
等级:狐仙 帖子:9861 积分:57453 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/10/11 11:46:00 [只看该作者]

谢谢!鱼儿 明白,我没有想到.

 回到顶部