Foxtable(狐表)用户栏目专家坐堂 → 数据填充


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

主题:数据填充

美女呀,离线,留言给我吧!
朱女士
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
数据填充  发帖心情 Post By:2020/4/7 7:28:00 [只看该作者]

 我写了一个计算库存数据的模块,用原料代码作为不重复值计算的,但是我想找到原料代码这一行对应的”供应商”列填充到库存表中,我用下面代码统计的,供应商列、原料名称列,含税价列,数据填充不进去不知道怎么实现?我试了几条语句都没通过。请专家指教!

   

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("供应商", Gettype(String), 8)
dtb.AddDef("原料名称", Gettype(String), 12)
dtb.AddDef("原料代码", Gettype(String), 10)
dtb.AddDef("含税价", Gettype(Double))

dtb.AddDef("期初_数量", Gettype(Double))
dtb.AddDef("期初_重量", Gettype(Double))
dtb.AddDef("期初_含税额", Gettype(Double))

dtb.AddDef("入库_数量", Gettype(Double))
dtb.AddDef("入库_重量", Gettype(Double))
dtb.AddDef("入库_含税额", Gettype(Double))

dtb.AddDef("出库_数量", Gettype(Double))
dtb.AddDef("出库_重量", Gettype(Double))
dtb.AddDef("出库_含税额", Gettype(Double))

dtb.Build()
'计算原料期初数据
For Each nm As String In DataTables("yljgb").GetValues("yldm")
    Dim dr As DataRow = DataTables("统计").AddNew()
   
    dr("原料代码") = nm
  
   dr("期初_数量") = DataTables("ylqcb").Compute("Sum(期初_数量)","[yldm] = '" & dr("原料代码") & "'")
    dr("期初_重量") = DataTables("ylqcb").Compute("Sum(期初_重量)","[yldm] = '" & dr("原料代码") & "'")
    dr("期初_含税额") = DataTables("ylqcb").Compute("Sum(期初_含税额)","[yldm] = '" & dr("原料代码") & "'")
   
    dr("入库_数量") = DataTables("ylrkb").Compute("Sum(入库_数量)","[yldm] = '" & dr("原料代码") & "'")
   
    dr("入库_重量") = DataTables("ylrkb").Compute("Sum(入库_重量)","[yldm] = '" & dr("原料代码") & "'")
   
    dr("入库_含税额") = DataTables("ylrkb").Compute("Sum(入库_含税额)","[yldm] = '" & dr("原料代码") & "'")
   
    dr("出库_数量") = DataTables("ylckb").Compute("Sum(出库_数量)","[yldm] = '" & dr("原料代码") & "'")
   
    dr("出库_重量") = DataTables("ylckb").Compute("Sum(出库_重量)","[yldm] = '" & dr("原料代码") & "'")
   
    dr("出库_含税额") = DataTables("ylckb").Compute("Sum(出库_含税额)","[yldm] = '" & dr("原料代码") & "'")
   
Next

With DataTables("统计").DataCols  '用表达式列计算库存数据
    .Add("库存_数量",Gettype(Double), "IsNull([期初_数量],0)+isnull([入库_数量],0)-ISNULL([出库_数量],0)")
    .Add("库存_重量",Gettype(Double), "IsNull([期初_重量],0)+isnull([入库_重量],0)-ISNULL([出库_重量],0)")
    .Add("库存_含税额",Gettype(Double), "IsNull([期初_含税额],0)+isnull([入库_含税额],0)-ISNULL([出库_含税额],0)")
End With
MainTable= Tables("统计")

 


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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/7 9:15:00 [只看该作者]

供应商数据在哪个表?通过什么列数据和库存关联?

 回到顶部
美女呀,离线,留言给我吧!
朱女士
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2020/4/7 9:17:00 [只看该作者]

在"yljgb"

 回到顶部
美女呀,离线,留言给我吧!
朱女士
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2020/4/7 9:18:00 [只看该作者]

在“yljgb”,通过“yldm”关联

 


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


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/7 9:29:00 [只看该作者]

For Each nm As String In DataTables("yljgb").GetValues("yldm")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dim pr as datarow = DataTables("yljgb").find("yldm='" & nm & "'")
dr("供应商") = pr("供应商")
dr("原料名称") = pr("原料名称")
    dr("原料代码") = nm
  
   dr("期初_数量") = DataTables("ylqcb").Compute("Sum(期初_数量)","[yldm] = '" & dr("原料代码") & "'")

 回到顶部
美女呀,离线,留言给我吧!
朱女士
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2020/4/7 9:46:00 [只看该作者]

成功!谢谢!

 回到顶部