第一流的 DATAWINDOW 高手们 , 来吧 !(300分)

[trouble]

DW_1 DW_2

物料组 需求数量 组别 物料 可用量
A 组 5000 A组 01 1800
A组 02 1500
A组 03 3000
B 组 5000 B组 08 5000


以上 A 组物料需要5000 ， 物料01 、02、03 都是 A 组。 为了满足 A 组的需求。必须消耗
01 、02、03 物料 ， 消耗顺序是,从可用量最大的算起。加足5000为止.


通过以上描述,以下 DW_3 就是我要的结果:

DW_3
组别 物料 实际消耗量
A组 03 3000
A组 01 1800
A组 02 200
-- 合计(5000)
B组 08 5000



通过DW_1、DW_2 算出结果放入DW_3

[dotnba]

学习先

[wzyun]

把dw_2按照可用量降序排列：
for i = 1 to dw_1.RowCount()
var_group = dw_1.Object.group[i]
var_qty = dw_1.Object.qty[i]
for j = 1 to dw_2.RowCount()
if dw_2.Object.group[j] = var_group then
var_wuliao = dw_2.Object.wuliao[j]
if var_qty > dw_2.Object.keyongliang[j] then
ll_row = dw_3.InsertRow(0)
dw_3.Object.group[ll_row] = var_group
dw_3.Object.wuliao[ll_row] = var_wuliao
dw_3.Object.xiaohaoliang[ll_row] = dw_2.Object.keyongliang[j]
var_qty = var_qty - dw_2.Object.keyongliang[j]
else
ll_row = dw_3.InsertRow(0)
dw_3.Object.group[ll_row] = var_group
dw_3.Object.wuliao[ll_row] = var_wuliao
dw_3.Object.xiaohaoliang[ll_row] = var_qty
exit
end if
end if
next
next

[trouble]

wzyun(空白)　???

你不会是 , 随手捻来吧 ? 这么快 !!! 高手啊!!!!!!!!

小弟下线试试再回来!

[wzyun]

你的要求不难实现，不过我的确随手来的，有问题是难免的，大家共同进步

[trouble]

wzyun(空白)　试了你的帖后 , 我马上发现自己距离 一个合格的 MIS/ERP 开发人的距

离是越来越远了 。 但方向更明确了。 小弟万分感谢！

该帖我先不结 ，我知道不会再有更好的答案了。我想给其它朋友看看。 你说好吗 ?

　wzyun(空白)　你现在哪？(我在深圳) 也做 ERP 吗? 给小弟一个 EM 好吗 ？

有问题我还是在 CSDN 上提，。我喜欢这里。还请多指教。

啊 哈~~~~ 哈哈~~ 小弟高兴啊！ 真想和找你喝一杯。

[trouble]

谢谢 wzyun(空白) 大师 !

[wzyun]

抬举了，我去年毕业的，[e-mail]
是做的ERP，其实大家互相进步，取长补短，我不足的地方很多，我不经常上这儿来，刚加入不久，原先爱上陶清网站，多谢错爱！
有空来云南喝

[trouble]

陶清网，你是冰雪天吗？

[trouble]

你初来这里，我教教你。

看看你的专家分，长了 150 分。 对吧 ， HE HE ~~

在 CSND 和 PDRIVER 一样 有 TOP 高手榜， 最高的有7000多分呢 ！

[wzyun]

那我要多努力了，我是那边的阿仔