进表按日期排序,从第一行开始遍历累加出库数量,直到大于等于数量。把这些行的单号合并起来即可
tables("进表").sort = "日期"
dim 和 as integer
dim 总量 as integer = 1500
dim s as string
for each r as row in tables("进表").rows
和=和+r("出库数量")
s = s & r("单号")
if 和 >=总量 then
exit for
end if
next
msgbox(s)
上面代码执行不行。
需求:出表的数据录入后,进表的出库数量列的数据按先进先出方式填写,并将涉及的单号,写到出表的备注列
当出表的料号、数量录入后,进表的出库数量列的数据按先进先出方式填写,并将涉及的单号,写到出表的备注列,如何实现?
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122869&skin=0