求助 VB代码如何按照登记顺序查找数据并计算显示结果

[liu0958]

db_sjk.mdb 为access数据库
tb_in 为数据表，“商品名称”、“入库数量”、“入库单价”为字段名
数据库链接：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_sjk.mdb;Persist Security Info=False


在tb_in 表中登记顺序

ID 商品名称 入库数量 入库单价
1 a 10 210
2 a 12 220
3 a 15 200

（每次登记为一个入库批次，本问题商品名称仅以a为例，实际可能包含b，c，d，.......）

求助问题：

如果Text1 = 商品名称，Text2 = 出库数量，在Text3 如何得到出库金额？（数量*单价）

要求出库金额必须按照商品入库登记顺序查找并计算，

比如a商品：
Text2 = 8，出库金额就是8*210=1680
Text2 = 13，出库金额就是10*210（第一批次数量*单价）+3*220（第二批次其中3的数量*单价）=2760
Text2 = 32，出库金额就是10*210（第一批次数量*单价）+12*220（第二批次数量*单价）+11*200（第三批次其中11的数量*单价）=4300

由于本问题只是涉及到一个工程应用，不能改变库表结构，如何按以上要求在 Text3 得到出库金额的计算结果呢？

[xzjxucxx]

首先打开表格时应按顺序打开，然后一个一个查找来计算金额即可