以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 数据填充 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148388) |
-- 作者:朱女士 -- 发布时间:2020/4/7 7:28:00 -- 数据填充 我写了一个计算库存数据的模块,用原料代码作为不重复值计算的,但是我想找到原料代码这一行对应的”供应商”列填充到库存表中,我用下面代码统计的,供应商列、原料名称列,含税价列,数据填充不进去不知道怎么实现?我试了几条语句都没通过。请专家指教!
Dim dtb As New DataTableBuilder("统计") dtb.AddDef("供应商", Gettype(String), 8) dtb.AddDef("期初_数量", Gettype(Double)) dtb.AddDef("入库_数量", Gettype(Double)) dtb.AddDef("出库_数量", Gettype(Double)) dtb.Build() With DataTables("统计").DataCols \'用表达式列计算库存数据
|
-- 作者:有点蓝 -- 发布时间:2020/4/7 9:15:00 -- 供应商数据在哪个表?通过什么列数据和库存关联? |
-- 作者:朱女士 -- 发布时间:2020/4/7 9:17:00 -- 在"yljgb" |
-- 作者:朱女士 -- 发布时间:2020/4/7 9:18:00 -- 在“yljgb”,通过“yldm”关联
|
-- 作者:有点蓝 -- 发布时间: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("原料代码") & "\'") |
-- 作者:朱女士 -- 发布时间:2020/4/7 9:46:00 -- 成功!谢谢! |